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ABSTRACT 


Numerical models based on (x,t)-dependent integral-transport 
equations, in lieu cf the usual integro-differential equations, have 
been developed for computing (x,t)<dependent neutron birth rate 
distributions in line and slab geometries. For a system of width W 
subdivided into N regions, the medels express the birth rate in 
region T at time t as a sum of weighted birth rates in the N regions 
J at discrete times t-1(I,J). vlus the external source rate in 
region I at time t. Each weighting factor, or transfer coefficient, 
depends on the approximation made for the spatial distribution of 
the birth rate in region J at t-1(I,J); for a particular model the 
spatial distribution in J is either assumed fixed or approximated 
by a modal expansion in low-order polynomials with (J,t-7(I,J))- 
dependent modal coefficients. The delay time +(I,J) is given by the 
mean time-of-flight between birth and collision of neutrons from an 
assumed source distribution in J that collide in I. 


The models were tested on relatively simple problems for which 
computed solutions could be checked by analytical methods, by 
comparison with published results of other methods, or by the degree 
of convergence with solutions obtained for larger N. From model 
comparisons based on accuracy and computing time, we found that a 
variable-distribution model in which the birth rate distribution 
in J is approximated by superimposing flat and slope-correction modes 
is the most effective of our models. As regards accuracy, this model 
is competitive with existing methods for a broad class of problems. 


The slab models were extended to treat time-independent problems 
for infinite systems of repeated unit cells. An efficient computer 
code, SLBECEL, is included in the thesis. 


Suggestions are made for extending the method to a wider class 
of problems, 
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CHAPTER 1 


INTRODUCTION 


In this thesis we develop, test and evaluate numerical models for 
computing approximate solutions of integral-transport equations for 
one-dimensional line and slab geometries. Our primary purpose is to 
develop techniques to solve for neutron distributions in time- 
dependent problems by numerically integrating time-dependent integral- 
transport equations in lieu of the usual time-dependent integro- 
differential equations. A secondary purpose is to develop improved 
techniques for treating spatial dependence in integral approximations, 
leading to more accurate, more efficient numerical models than 
obtainable with the techniques currentiy used. Results for both time- 
dependent and steady-state problems demonstrate the realization of 


this secondary objective. 


1A. INTEGRAL-TRANSPORT EQUATIONS FOR WHICH NUMERICAL MODELS ARE 
DEVELOPED 


The most general integral transport equation for which numerical 
models are developed in this thesis is the equation for slab 


geometrys 


=: 


—- — 


ee ee ee 
o> =a ie =" aaa <a 
occa = a as 

——~ ar -——— nan nesta recy 
——_— seem 


— — a _—- . 
R= > a, 
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1 W 
b(x,t) = o(xst) D(x) | au | as Bec. c= ah) ; 
6) 0) 


Be 


oo) fest ETC + s(yt) , | (A.2)" 


Notes In Appendix D, Eq. (14.1) is derived from an integral-transport 
equation more generally applicable to nuclear reactor systems, The 
following simiplifications are incorporated in the derivation of 

Eq. (1A.1): 


a) Delayed neutrons are not REeatel explicitly. 


b) The system is isolated from its surroundings; i.e., no 
neutrons enter the system across the boundary planes at 
x=0 and x=W. 


c) The neutrons are treated as monoenergetic. 


d) The medium is isotropic; i.e., the nuclear properties Y and 
¢ are independent of the direction of incident neutrons. 


e) The directional distribution of births is isotropic with 
respect to a laboratory frame of reference; i.e., neutrons 
emitted by external sources and secondary neutrons emitted 
at collision sites are emitted with a spherically symmetric 
distribution. Note that this simplification does not 
constrain the flux distribution to be directionally 
isotropic. 


f) The collision cross section, J, is constant with respect to 
time. 


g) The nuclear properties, source rate density and birth rate 
density are constants with respect to the coordinates y and 
Zz ina Cartesian frame of reference (x,y,2). 
The system has an infinite extent in the (y,z) plane. 


The practical significance of each of these simplifications, as 
regards restricting the class of nuclear reactor systems to which an 
equation incorporating the simplification is applicable, is discussed 
in standard textbooks on reactor physics. Some notes pertaining to 
the effects of these simplifications in reducing the numher of computing 
operations in intezral-equation-based numerical models are included in 
Appendix D. 
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where 

b(x,t) is the birth rate density, ee tecuan at the spatial 
coordinate x at time t 

s(x,t) is the contribution to b(x,t) from an external source 
located at (x,t) 

v is the neutron speed, cm sect 

?.is the macroscopic collision cross section, em + 

c is the secondary emission coefficient, i.e., the mean number 
of secondaries per collision 

W is the width of the system, cm 

uu corresponds to the cosine of the acute acai between the x-axis 
and the straight-line track Saneeen the birth site of a 
neutron and its collision site; wu serves re a dummy 
variable in Eq. (14.1). 


The birth rate density is related to the neutron flux, ¢, by 
b(x,t) = c(x,t)2 (x)@(x,t) + s(x,t) = BG) + s(x,t), (14.2) 


where the expression }@ is the collision rate density of "parent" - 
neutrons and b° is the secomary neutron birth rate density, or 
"progeny birth rate density." Identifying the terms in Eq. (14.2) 
with those in Eq. (1A.1), one can see that the flux at (x,t) is 
expressed in Eq. (1A.1) in terms of the past history of the birth 
rate densities at all locations x* in the system. Numerical approxi- 


mations for Eq. (14.1) are studied in Chapter 3. 


In Chapter 2, we study numerical models for a simpler integral- 


transport equation, the equation for line geometry: 





> 


W 
b(x,t) = ott) (x) | dx! 2 o(xt,t- Lex). 
O 


ae ABELL dx" F(xi")> + s(x,t) , (14.3) 
where b and s are assigned the units em see =. Eq. (14.3) differs 
from Eq. (14.1) in that neutrons are treated as if emitted in only 
the two discrete directions (u = 1) parallel to the x-axis, rather 
than with a spherically-symmetric distribution. Although Eq. (14.3) 
has little or no practical value as regards applicability to real 
nuclear reactor systems, the equation incorporates the basic 
assumption of neutron transport theory that neutrons travel in 
straight lines at constant speeds between their birth sites and 
collision sites. For our purposes, the simplicity of Eq. (14.3) 
and of the hypothetical class of systems it describes makes the 
equation a useful subject for evaluating alternative approaches for 
formulating integral-type numerical models. Those approaches which 
yield satisfactory numerical models for Eq. (14.3) in Chapter 2 


are applied to the more complex Eq. (14.1) in Chapter 3. 


The time-independent version of Eq. (14.1) is swudiec in 
Chapter 4, Numerical models are developed both for treating systems 
of finite width W and for treating infinite systems in which the 
nuclear properties and external source distribution are periodic 


functions of x. 
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1B. THE FINITE-INTEGRAL APPROXIMATION 
1B... Form lation of Models 


In formating numerical models for Eqs. (1A.1) and (14.3), 
the system of width W is subdivided into N regions, each having the 
width Ax =W/N. The nuclear properties are treated as homogeneous 
within a given region, but may have different values in different 
regions. Both sides of Eq. (1A.1 or 14.3) are mitiplied by dx and 
integrated formally over the interval Ax corresponding to a particular 
"receiver" region I, where 1l< I<N. The integral on the left-hand 
side defines B(I,t), the birth rate in region I at time t. Since 
parent neutrons colliding in region I at time t were born at various 
points within the system at previous times, we wish to express the 
progeny birth rate component of B(I,t) as a sum of weighted contri- 
butions from the birth rates in the N "source" regions J, each birth 
rate taken at an appropriate earlier time. To do this, the integral 
over x' between the limits 0 and W on the right-hand side of the 
integral equation is reexpressed as a sum of N integrals, each taken 
over the interval Ax corresponding to a different source region J. 
Then, focusing attention on the integral describing the contribution 
to B(I,t) from parent neutrons born in a particular region J, we 
approximate the space-time dependence of the birth rate density in 


region J by a relation having the form: 








I 


b(x" te wee) = B(Jyt-t(I,J) u(x") + [C,(J,t-r(Z,5))u,(x") + 
Co(J,ter(I,J))up(x")] , (1B.1) 


for x in region I, x’ in region J, and 0 < » < 13 where the terms 
enclosed within square brackets are not included for all models, and 


where 


u(x") is a function to be specified later which describes the 
assumed spatial distribution, or a modal component of the 
spatial distribution, of the birth rate in region J and may 
differ from model to model .* Those models for which only 
the term Bu, is used on the right-hand side are called 
"fixed-distribution models." Where more than one term is 
used, the model is called a "variable-distribution model" 
and u(x") describes the "unit flat mode", a uniform 
distribution in region J. For each model, u, (x*) is 
defined such that its integral over the interval Ax 


corresponding to region J is equal to unity. 


w, (x!) describes the "unit slope-correction mode", a distribution 
varying linearly with x' in region J. Its integral over 


region J is equal to zero. 


ANote: Since the aniiere) expression containing sa ), where i=l, 2 
or 3, is integrated only over x® in the interval 4X corresponding to 
region J, we need to define w;(x*) only for x’ in region J. If we 
define w(x')=0 for all x? er of region J, the integral may be 
assigned broader (e.g., infinite) limits, 
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u(x") describes the "unit curvature-correction mode", a 
parabolic distribution in region J. Its integral over 
region J is equal to zero. 

(I,J) is the mean delay time between births in region J and 
their collisions in region I. The expression from which 
t(I,J) is computed for a given model describes the mean 
flight-time of those neutrons from an assumed source 
distribution (e.g., ui(x*)) in region J which collide in 
region I with either an assumed or a rigorously=derived 


spatial distribution. 


C,(J,t-r(I,J)) and C,(J,t-t(I5J)) are modal coefficients for 
the unit slope=- and curvature-correction modes, 
respectively. The modal coefficients are computed from 
Simple expressions which are linear in the birth rates 
at time t-T(I,J) in region J and in neighboring regions. 
These expressions will be derived later. 

We shall refer to the approximtion of the space-time dependence of 
the birth rate distribution in source region J by the spatial 
dependence at the discrete time t=1(I,J) as the "discrete delay- 


time approximation. "* 


After the substitution indicated by Eq. (1B.1) has been made in 


each of the N integrands in the integral equation for B(I,t), the 
*Note: In Chapter 3, a mltiple-delay-time model is formated for slab 
geometry by taking the additional step reexpressing the integral over 

w in Eq. (14.1) as a sumof N_ integrals, each taken over a different 
angular interval. The discrete-delay-time models, which have been 
programmed and tested, correspond to the case where N = 1. 











uy 


integral equation may be reduced in a straight-forward mamer to the 


following relation: 
N 


B(I,t) = ¢(I,t) > G(I,J)B(J,tet(I,J)) + (13.2) 
J=] 


(I,J)C,(J,t-1(I,Jd))] TLE S12), 9 


(G54 (ToI)Cq(Syt-t(Z5I)) + Gy 


where the terms enclosed within the square brackets may be identified 
with the corresponding terms in Eq. (1B.1) and where 


S(I,t) is the external source rate in region I at time t, 
{ abe Glen) 
(ax) 1 


e(I,t) is the secondary emission coefficient in region I at time t 
G(I,J) is the number of collisions in region I of neutrons born 
in region J with the distribution u(x") 
Gyp\ted) is the number of collisions in region I of neutrons 
born in region J with the distribution u, (x") 
G mys lod) is the number of ecilisions in region I of neutrons 
born in region J with the distribution up(x") 
The transfer coefficients G, Geip and Gey are computed from closed- 
form expressions which are linear in known functions and which are 
derived by performing the indicated integrations over x', x and, for 
slabs, p on the right-hand side of the integral equation for B(I,t). 
Since the integral-transport equations approximated by Eq. (1B.2) have 
time-independent collision cross-sections, the transfer coefficients 
are time-independent and need be computed only once for a given problem 7 
for the class of problems having the same set of N optical region 


widths, 5(I)Ax. 
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The final step in formlating the numerical model is to specify 
the unit time step, At, between successive computations of the set of 
N regional birth rates and between stored values in the birth rate 
memory. In order that the numerical equations will be explicit ;* 
the unit time step is chosen to be less than, or equal to, the smallest 
of the t(I,I). For a typical problem with v = 210° em/sec and 


4x = lem, the unit time step is on the order of 107° Sec. 


1B.2 Outline of Models Developed 


Note that the basic approximation given by Eq. (1B.1) allows 
considerable freedom of choice in the number of terms to be used on 
the right-hand side and in the expressions used to define some of 
the individual terms. One of the objectives of this thesis is to 
evaluate various options, basing comparisons on the accuracy of 
computed solutions and on computational efficiency. In the next few 
paragraphs we outline some of the models to be developed and tested in 


subsequent chapters. 


Three representative fixed-distribution models and one variable- 
distribution model are developed for line geometry in Chapter 2, 
Among the fixed-distribution models are Model M, the "midpoint 
approximation", in which neutrons born in region J are assumed to have 
been emitted from the midpoint of region J, and Model F, the "flat 
approximation", in which neutrons are assumed to have been born with 


*Notes ALL quantities on the right-hand side are lmown before the 
quantity on the left-hand side is to be computed. B(J,t-t(I,J)) is 
computed by linear interpolation between stored values when 
T(I,J)/At is not an integer. 
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a uniform distribution in region J. In the variable-distribution 
model, Model FS, the spatial dependence of the birth rate density in 
region J at time t-rt(I,J) is approximated by superimposing weighted 
flat and slope-correction modes, The computer code OVRR4, written 


for Models F and F5, is described in Appendix A. 


Three models are developed for slab geometry in Chapter 3. 
These models, designated Model F, Model FS and Model FSC, are 
characterized by the use of the first term, the first two terms or 
all three terms, respectively, on the right-hand side of Eq. (1B.1). 
The expressions for the delay times are based on the flat approxi-~ 
mation. The applicable computer code, TOVSR, is described in 


Appendix B. 


The three slab models are applied in Chapter 4 to solve for 
time-independent birth rate distributions in sub-critical systems 
in which the neutron populations are supported by external sources, 
The method used to extend the applicability of the slab models to 
infinite systems in which properties, external source distributions 
and birth rate densities are periodic functions of x, i.e., infinite 
systems of repeated unit cells, is described in Chapter 4. The 
finite-integral approximation, Eq. (1B.2), is simplified considerably 
for time-independent problems; from the set of N simplified equations, 
the birth rate distribution is computed using a non-iterative reduction 
procedure in lieu of time-consuming iteration. The applicable computer 


code, SLECEL, is described in Appendix D. 
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Some suggestions for improving our line and slab models, based on 
evaluation of test results, are included in the summaries of Chapters 2 
and 3, respectively. Some recommendations for further work in 
extending the basic methodology developed in this thesis to treat 


higher-dimensional problems are given in Chapter 5. 


1B.3 Testing and Evaluation of Models 


As will be evident in the subsequent chapters, each model is 
initially tested on relatively simple problems for which computed 
solutions may be checked either analytically or by comparison with 
results reported in the literature for other methods. Convergence 
properties of the model are checked by repeatedly solving the same 
problem using different values of N. Results of these convergence 
calculations also give an indication of the accuracy of the solution 
obtained with a particular N. Although the simple test problems do 
not exploit the full capacility of the model for generating space- 
time transients, they prove to be useful tools for evaluating the 


various approximations that are made in formulating the model. 


The following factors affect the accuracy of the computed 


solutions and will be studied in some detail’ 


a) Deviation of the assumed spatial distribution of the 
birth rate in source region J from the actual distribution. 
b) Growth rate of the birth rate in source region J for 


problems in which B(J,t-T) has varied smoothly with > 
(ter). 
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c) Discontinuities in B(J,t-tT) caused by discontinuities in 
the time-dependence of external source rates or 


secondary emission coefficients. 





| d) Optical width of region J,>(J)Ax, in mean free paths. 


To compare directly one model with another, each model is used 
to solve the same problem, in some cases for several values of N. 


| The more satisfactory model for the particular problem is the one 








which yields a more accurate solution using less computing time. 


1C. RELATION WITH PREVIOUS WORK 


With this section we conclude our introduction by comparing 
some of the characteristics of our models with those of models 
developed previously by other workers, and by pointing out areas 


where our efforts contribute to the sate of the art, 


1¢.1 Finite-Integral Models 


In recent years, numerical models based on time-independent 
integral-transport equations have been developed by a number of 
workers. Numerical models for computing neutron distributions in 
infinite slab systems of repeated unit cells have been developed by 
Honeck!"?, Sars ee and ahurches Honeck's slab model* includes 


a multigroup treatment of energy-dependence and allows for linearly 


*Notes Honeck has also developed a cylindrical cell model and a 
true two-dimensional model for rod lattices with isotropic emission. 
In the two-dimensional model, neutrons born in a given region are 
assumed to be emitted from the midpoint of the region. 
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anisotropic scattering * The models of Judge and Church treat neutrons 
as monoenergetic. In all of these models, neutrons are assumed to be 
born with a uniform spatial distribution (flat approximation) in 

source region J, and the set of numerical equations is solved by an 


iteration scheme. 


Comparative results presented in Chapter 4 demonstrate that, for 
equivalent accuracy, a net savings in computing operations can be 
obtained by using a variable-distribution model in lieu of the flat 
approximation for slab cells greater than one mean free path thick. 
The advantage grows with cell thickness. Additional savings are 
obtained through the use of a non-iterative reduction scheme for 
solving the set of numerical equations. It should be mentioned 
here that the use of a variable-distribution model for treating the 
spatial dependence is not incompatible with either a mltigroup 
formulation or the inclusion of linearly-anisotropic scattering in 


the numerical model. 


As regards previous work in which finite-integral models have 
been developed to study systems with time-varying neutron fluxes, 
Judge and Daitch’ have developed finite-integral models having 
N < 3 to solve for the inverse periods associated with stationary 
(space-time separable) solutions of time-dependent integral-transport 
equations. The slab equation approximted by Judge and Daitch is 
equivalent to Eq. (1A.1) as modified by first dropping the external 
ote: Accounting for linearly-anisotropic scattering in slab 
geometry requires twice the number of discrete variables needed for 


a model which accounts for only isotropic emission but is otherwise 
equivalent. 
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source term and the x- and (x,t)-dependence of the nuclear properties, 
and then recasting the equation into stationary form by introducing 
the restriction of space-time separability on the solution. The 
resulting stationary equation is time-independent. The finite-integral 
model is then formated by treating the flux as spatially uniform 
within a given region (flat approximation). These few-region models 
are effective tools for calculating inverse periods in very sub- 


critical, optically-thin slabs. 


The author has found no evidence of previous attempts to develop 
numerical models which are formlated from time-dependent integral- 
transport equations in the manner outlined in Section 1B. Given the 
system parameters and the past history of the birth rate distribution, 
these models are capable of generating space-time transient solutions 


directly. 


10.2 Finite-Difference Models 


Existing methods for computing time-dependent transport 
solutions in slab geometry have been based, for the most part, on 
spherical-harmonics and discrete-ordinates approximations, e.g., the 


well-known PL and Sy approximations’, for the angular dependence of 


the angular flux in an integro-differential transport equation such as 


that equivalent to Eq. (14.1). These methods are discussed in 


ote; The integro-differential equation is replaced by L+l linked 
differential equations in L+l unknown functions of x and t. 
Numerical models are normally formated by replacing partial 
derivatives by finite-difference expressions. sil,te 








standard ogpelbackeay Here we shall point out only some general 
differences between finite-integral models for Eq. (14.1) and finite- 
difference models for the integro-differential equation equivalent to 


Eq. (14.1): 


a) For equivalent numbers of spatial intervals, the 
number of discrete variables which must be computed at 
each time step is given by N for the finite~integral model 
and by LNW for the finite-difference model. This 
apparent advantage of the finite-integral model is offset, 
however, by the fact that the algorithm for computing one 
of the LN+N variables in the finite-difference model 
contains only a few terms? 12. whereas the number of 
terms on the right-hand side of Eq. (1B.2) is an integer 
times N.’ For a miltiple-delay-time model, the mmber of 
terms on the right-hand side of Eq. (1B.2) is miltiplied 


by the factor Ne the number of angular intervals. 


b) The finite-integral model is a past-history 
formulation requiring storage of the N birth rates at 
several previous times to have available the data needed 
to compute the birth rates at time t. The finite- 
difference model is an initial-value formulation 


requiring storage, in the usual case, of the values of 


Hotes For large (aptiealiy=thick) systems, the number of terms 


in Eq. (1B.2) can be reduced since only a negligible fraction of the 
neutrons born in region J survive the flight to region I when regions 
I and J are separated by several mean free paths. 
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the LNW discrete variables at the previous time step only. 
Additional storage requirements to permit computing 
several time steps before transferring results from the 
computer core to output tapes are considerably less for 


the finite-integral model with its fewer discrete variables. 


c) The major disadvantage of our method relative to 
finite-difference approximations is the requirement for 


storage of the two-dimensional arrays G,G.,G and 


slp’ “erv 


t.* These parameters are stored because the expressions 

from which they are computed are fairly complex and it 

is therefore not desirable to recompute them each time 
| they are used. Coupling coefficients in the finite- 
difference models, on the other hand, are easily computed 
from "local" properties which are given by one-dimensional 


arrays of length L or N at most. 


Considering the differences pointed out in the preceding dis- 
cussion, one might justifiably question our interest in expending 
further effort to develop and program finite-integral models. 
Recall, however, that the comparisons were based on the assumed 
equivalence of the number of spatial intervals used with each type 


model. If we change the basis for comparison to be equivalent 





accuracy of the solutions for a given problem, we will find that 


the number N needed with a typical finite-integral model is usually 


BNote: For systems in which 2 is independent of x, the magnitudes 
of the transfer parameters are functions of !I-J/ only; therefore, 
storage is needed only for one-dimensional arrays having N elements. 








wa 
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much smaller than the number N needed with a finite-difference model. 
For example, we might point to the previously-mentioned work of Judge 
and Daitch’, who obtained excellent results in calculating the funda- 
mental stationary solutions (asymptotic solutions) for the flux in 
very thin, very subcritical slabs using N=] or 3. Since the spatial 
distribution of the asymptotic flux is known to be fairly uniform in 
one of these systems, the use of a single flat mode or three flat 
regional modes is an excellent approximation. Finite-difference 
models developed from PL or Sy approximations to the equivalent 
stationary integro-differential equation would require a much larger 
number of spatial mesh points in addition to large L. Other examples 


illustrating the smaller values of N needed with finite-integral 


models are given in Chapters 2 and 3. 


The number of angular intervals N needed to obtain accurate 
solutions with a finite-integral model for Eq. (1A.1) depends on 
the rates of growth of the birth rates in the various source regions J. 
We shall first examine the limiting case of time-independent problems. 
For time-independent problems, in which the birth rates do not vary 
with time, no additional accuracy can be obtained by using Ve ee 
for these problems, the use of N= in the finite-integral mode] is 
equivalent in a sense to the use of Ivo in finite-difference models 
based on PS or Sy approximations to the equivalent integro- 
differntial equation.” Although this equivalence is not true for 


time-dependent problems, it 1S reasonable to expect that discrete- 


Notes In Chapters 3 and 4 several comparisons are made between 


finite-integral results and published, high-order Sy and Py results. 
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delay-time (N =1) models for Eq. (14.1) will yield satisfactory 
solutions for time-dependent problems in which the birth rates in the 
various source regions do not change too rapidly with time. The 
growth rate limits indicated by the test results in Chapter 3 are 
broad enough to include reasonably fast space-time transients, e.f., 
a transient having local growth rates equivalent to doubling times 
of 200 microseconds or more in a system with Sp RAloe am sae and 

vet on To accurately compute very fast transients, e.g., system 
responses to localized initial sources, one would need to use a 
mitiple-delay=time model with suitably large Nee For this reason, 
we include in Chapter 3 a method for formulating mltiple-delay-time 
models. Although we have not coded the mltiple-delay-time models, 
we expect that the accuracy of fast-transient solutions computed for 
slab systems thicker than one mean-free-path using a high-order 
mitiple-delay-time model would be similar to the accuracy of fast- 
transient solutions to Eq. (14.3) computed using the corresponding 


discrete-delay-time model for line geometry. 
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CHAPTER 2 


LINE GEOMETRY 


_ Introduction to Chapter 2 


In this chapter we develop, test and evaluate numerical models 
for Eq. (14.3), the simplified integral-transport equation for line 
geometry. In the hypothetical line reactor, there are only two 
discrete directions of particle motion; with the simplifications of 
isotropy, half of the particles born are emitted towards the left 
and half are emitted towards the right, the direction of increasing 
x Wing! used line geometry (his "rod model") to illustrate 

_ effectively some of the physical and mathematical characteristics 
of integro-differential and invariant-imbedding formations ~*~ 
Here we use line geometry to illustrate basic methodology associated 


with finite-integral models and to evaluate some alternative 


approaches for formulating finite-integral models. 


The physical interpretation of Eq. (14.3) and the relation 
between the integral-transport equation and the finite-integral 
approximation are discussed in Section 2A. Three representative 
fixed-distribution models are described in Section <B. A variable- 
distribution model with superimposed flat and slope~-correction modes 
is developed in Section 2C. Computational characteristics of the 
corresponding numerical equations, such as convergence, explicitness, 
“Hotes The set of two coupled differential equations equivalent to _ 
Eq. (14.3) is given in Appendix E. In addition a finite-difference 
model is formulated and an analytical constraint for testing some of 


our computed solutions is derived. We shall refer to these again 
in Section 2E, 








| 
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memory requirements and computing times, are discussed, Some brief 
remarks concerning the computer programs written to test the line 


models are included in Section 2D. 


Computed asymptotic solutions for source-free systems with time- 
independent properties are reported and analyzed in Section 2E. 
These problems are particularly convenient for evaluating the various 
models because the solutions can be checked analytically. In addition, 
errors due to the discrete-delay-time approximation and the population 
growth rate can be substantially isolated from errors due to the 
approximation for the space=-dependence by solving an auxiliary 
problem. Computed space=time transient responses to short-lived, 
localized external sources are studied in Section 2F, These solutions 
illustrate the effects of discontinuities in the time-dependence of 
the parent birth rates. A procedure for computing importance distri- 
butions is described in Section 2G; an example distribution for a 
small, slightly supereritical system is reported. Finally, examples 
of problems with time-varying external sources and time-varying 
secondary emission coefficients are given in Sections 2H and 2I, 


respectively. 


ZA. INTERPRETATION OF INTHGRAL-TRANSPORT EQUATION AND RELATION WITH 
FINITE=-INTEGRAL APPROXIMATION 


Let us miltiply Eq. (14.3) by the element dx and, for convenient 


referencing, rewrite the equation: 
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Notes The "auxiliary problem" is defined in Subsection 2E.4. 
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b(x,t)dx = e(x,t) > (x)dx dx"b(x*,t- ease Se 
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Eq. (2A.1) has a simple physical interpretation. Consider the 
infinitesimal source element dx' about x"; b(x',t={x-x*| /v)dx' 

is the birth rate in dx’ at a time which is earlier than t by an 
interval equal to the flight-time required for a particle to travel 
from x' to x. One-half of the particles born are emitted towards the 
receiver element dx. The fraction of these that reach dx is given by 
the exponential term. The fraction of those reaching dx that collide 
in dx is given by the factor )(x)dx. The product of the four factors 
gives the contribution to the collision rate in dx at t from particles 
born in dx'. The integral over all source elements in the system then 
gives the collision rate in dx. The progeny birth rate is equal to 
the producé of the secondary emission coefficient and the collision 
face, Addinz the cxternal source rate, one obtains the birth iate, 


~ 


A 


Pasure cA. shows the relation between a receiver point (x,t) 
and the contributing source points (x',t"') in the space of the 


coordinates x and t, 
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Figure 2A.1 Relation between Receiver 
and Source Points in (x,t)-Space 


Equation (2A.1) relates the birth rate in the infinitesimal 
receiver element dx with the parent birth rates in an infinite number 
of infinitesimal source elements dx'. For numerical purposes we want 
to approximate Eq. (2A.1) by a model relating the birth rate in a 
finite receiver region I with the birth rates in a finite number of 
finite source regions J. Figure 2A.< shows the relation between 


the integral-transport equation and the finite-integral model. 


As described in Chapter 1, we subdivided the system of length 
W into N regions, each having the length Ax=W/N, and treat the 
nuclear properties as homogeneous within each region. Then, 


splitting the integral over x' in Eq. (2A.1) into N distinct 
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integrals, and integrating both sides of the equation over the interval 


Ox corresponding to region I, we obtain: 


B(I,t) - | b(x,t)dx 


(Ax) + 
= o(I,t) rt J dx SED | ax" b(x!, te Lex). 
(ix), x), 
“exp eal f ee) ae EA te) « (2A.2) 
xt 


where the sum over J gives the collision rate in region I. With the 
exception of the terms in the summation, Eq. (2A.2) is identical to 


Eq. (1B.2), the finite-integral approximation. 


We now focus our attention on the integral expression which gives 
the contribution to the collision rate in region I from neutrons born 


in region J: 


{ dx 2) { shod Ty Gale fee oo | ft [arm : 


(6x)y (Ax) 5 (24.3) 


By analogy with Fig. 2A,]., the hatched area in Fig. 2A.3 contains 
all possible birth positions in (x,t)-space of parent neutrons which 
were born in J and which collide in I at time t. With the discrete- 
delay-time approximation, b(x',t-|x-x'|/v) is replaced by b(x',t-T(I,J)). 


The nature of this approximation is fairly obvious from Fig. 2A.3 . 
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Figure 2A.2 Relation between the Integral Equation 
and the Finite Approximation 
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Figure 2A.3 Schematic Diagram of Discrete Delay-time 
Approximation 
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In the next two sections, specific models are formlated by approxi- 
mating the x*-dependence in b(x’,t-1(I,J)) as indicated by Eq. (1B.1), 
where the various functions retained in Eq. (1B.1) are defined 


explicitly. Expressions for the t(I,J) are derived independently. 


2B. FIXED-DISTRIBUTION MODELS 


In this section we develop three fixed-distribution models. For 


these models, Eq. (1B.1) reduces to 
x? 
b(xt,t- EEL) = B(g,t-r(,4))ui(x") (2B.1) 


Similarly, Eq. (1B.2) reduces to 


N 

B(I,t) = e(I,t) ) [6(I,J)B(J,t-r(I,J))] + S(I,t). (2B.2) 
J=1 

The models to be developed are designated Model I, Model M and 


Model F, respectively. A detailed description of each model follows. 


2B.1 Model I: Simple Nodal Approximation of the Integral Equation 


For Model I, we focus attention of the N discrete points Xs which 
are the midpoints of their respective regions, I. We assume that the 
birth rate density at the midpoint of each region is equal to the mean 
birth rate density in the region and that particles which were born at 
x, and which collide at a at time t@ represent, in the mean, all | 
particles which were born in region J and which collide in region I at 
time t. Model I can then be formulated directly from Eq. (2A.2) simply 

1 


by substituting x, for x and Ss for x', performing the trivial integra- 


tions 











ae 


[sem 


(Ax), (Ox), 
and identifying terms * 
The transfer coefficients are given by 
2 
by -x., {x,-x,] 
Gis) = = EXD) Ax oP) = Te, = = | aac" F (31) 
ae 
J 
Por L + J, 


-[P( J) /24+P(I) /24P, (I,J 
a(,3) =P hl (2B. 3a) 


where P(I) is the optical width (in mean free paths) of region I and 
P (I,J) is the sum of the optical widths of all regions lying between 


regions I and J; for I =Jd, 


QO, 18) = Ei bes - 2) (2B. 3b) 


The delay times for I #.J are given by 


i |X, -x51 2 a 
t(I,J) =e = I) SS. (2B.4a) 


Special attention need only be given to approximating 1(I,I) by a 


realistic, non-zero expression. We assume that the mean distance 
Notes Model I differs from all other models developed in that it is 
essentially a midpoint-to-midpoint formulation rather than a midpoint- 
to-region formulation, as is Model M, or a region-to-region formulation, 
aS is Model F. We have, in effect, arbitrarily specified the collision 
distribution in region I. For this reason, the method used above to 
present Model I is considered preferable to adapting the general 
approach outlined previously. 
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travelled by particles born at x, and colliding in region I is Ax/4, 


or half of the distance to the edge of the region. In this case, 


ax 


Tino) = is (2B.4b) 


The convergence of the Model I formulation to the integral 
equation (2A.1) in the limit as Necoand 4x90 is fairly obvious. For 
systems with optically-wide regions, however, it can be shown that 
Model I violates the principle of conservation of particles, Consider 
for example, a homogeneous system subdivided into thirty regions, each 
of which is 0.5 mean freepath wide. Since the systems extends at 
least seven mean free paths on each side of region 15, only a minute 
fraction of particles born in region 15 will leak from the system; the 
sum over al] I of the G(I,15) should therefore be slightly less than 
unity. We find, however, that the partial sum over regions 6 to 24 
is equal to 1.012. Model I predicts more collisions, and subsequent 
births, than conservation permits. Because of this excess production, 


birth rates computed with Model I tend to grow too fast. 


2£B.e2 Model Ms: Midpoint Approximation 


For Model M, we treat all particles born in region J as if emitted 
from the midpoint Xo The expression for G(I,J), the fraction colliding 
in region I, is then derived rigorously. Model Mis therefore consis- 
tent with the conservation of particles. Assuming an arbitrary distri- 
bution for the parent particles, however, is equivalent to repositioning 
particles at the time of their births and therefore violates the con- 


séPvation of importance. 
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With the midpoint approximation, the function u(x") in 


Eq. (2B.1) is given by the Dirae delta function; i.e., 
-@ —_ 
u(x = 6(x"=x.) : (2By5) 
Substituting Eqs. (2B.1) and (2B.5) into Expression (2A.3), 


and factoring B(J,t-1T(I,J)) out of the integral expression, the 


integral expression reduces to 


x 


[xX=x .] 
GERAD si dx SU) exp Tek | dx"F(xtt)\ , 
(4x)+ x 
from which 
1. PCI), -£P(9) /24P,(2,9)] 
G(I,J) a5 [1-6 le (2B.6a) 
forel *# J, and 
=P(I) /2 
G(I,I) =l-e ; (2B.6b) 


For very small P(I), it can be shown that Eqs. (2B.6) reduce to 
Eqs. (2B.3). The delay times used with Model M are the same as those 


used for Model I, given by Eqs. (2B.4). 


The following two characteristic errors of Model M will be 
apparent in the results of test problems reported in Section 2E. First, 
in comparison with models which treat the distribution of births in 
region J as a smoothly-varying function, Model M overestimtes 
G(J,J) and therefore underestimtes the net leakage from region J of 
particles born in region J. For larse Pid), parent particles and their 


progeny tend to be trapped in region J. Second, the midpoint-to- 









HO 


midpoint delay times, t(I,J), are overestimated. Consider a uniform 
source distribution in region J. For non-zero P(J), most of the 
particles which escape from region J in the direction of region I 
were born in that half of region J which is closer to region I. 
Similarly, most of the particles which collide in region I collide 
in that half of region I which is closer to region J. The mean 
delay time between births in J and collisions in I is clearly less 
than |x,~x51/v- Due to the overestimated T(I,J), population growth 
or decay rates predicted by Model M tend to be smaller than the 


correct values, 


2B.3 Model Fs Flat Approximation 


For Model F, we assume that the birth rate in source region 


J is distributed uniformly over region J such that 
tn) ac") = (2B.7) 
O Ax eo ° 


Substituting Eqs. (2B.1) and (2B.7) into Expression (2A.3), and 


factoring B(J,t-1(I,J)) out of the integral expression, we obtain 
x 
1h Al =-x! 
o(ra)= [ ax 2@ | ar og - REET f axes), 
g 
(Ax), (Ax) x 


from which 


1 @P( J) ~P (I,J) ~P(T) 
G(I,dJ) = Spa) [l-e lle ]j{1 - e ] (2B,8a) 


for T + J, and 





1 -P(T) 


G(I,I) -l-pyy li-e 


In Eq. (2B.8a), the expression 


~P(J) 


u 
a 


Ay 


° (2B.8b) 


gives the fraction of the particles born in J that leak past each 


boundary of region J; the expression in the second set of brackets 


gives the probability that a particle will not collide along the 


flight path between regions I and J; the expression in the third set 


of brackets gives the probability that a particle entering region I 


will collide in region ins 


To obtain the delay times, we assume a uniform source distri- 


bution, 1/Ax, in region J and derive the expression for the mean 


distance travelled by source particles that collide in region I. 


Dividing this expression by v, we obtain the mean delay time between 


births in J and collisions in I. Thus, 


T(I,d) eae fx eD [ax a exp 





x 
me bee [ areca) . 
x? 


(Ax), (4x) , 
from which 
-P(J) -P(I) | 
2 ) + lady - ee | 
(2B.9a) 


for I # J, and 
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P(J) - 2 +2 + P(g) en PhY) 


Gi Ax 
or P(J)EP(J) - 1 + oP 49)5 v 


; (2B. 9b) 


The three dimensionless expressions denoted by the brackets in Eq. 
(2B.9a) give the mean distances, in subregion lengths, travelled in 
region J, in the regions between I and J, and in region I, 


respectively, by particles which are born in J and collide in I. 


In Table 2B.1 we list some characteristic values of the transfer 
parameters computed with Models I, Mand F. These numbers illustrate 


the differences between the various models. 


2B.4 Some Computational Characteristics of the Finite Approximation 


In applying Eq. (2B.2) for numerical computations, the birth 
rates are computed only at discrete times and then stored. The unit 
time step, At, is set equal to the smallest of the t(I,I) in order 
that the resulting numerical equation will be explicit; at time t, 
then, all birth rates needed on the right-hand side of Eq. (2B.2) 
are either known or can be obtained by simple interpolation between 
known values, The birth rate in region I at time step K, where K is 
an integer, is given by 

N 


Ge) = c(Z,K) ) (G(I,5) B(I,K-n,,(Z5I))] + S(I,K), (2B.10) 
Sia 


where 


© Alea), 
7 (I,d) = es P Casi ih) 
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In Models I and M, the 7) (I,J) are integers; in Model F, they are non- 
integers and B(J,K-1, (I,J)) is obtained by linear interpolation between 
stored values. The number of time steps of memory required is given 
by the largest of the 7 (I5d)s 7 (15N) for Models I and M and by the 


integer just larger than 1, (1,N) for Model F.” 


¢ 


Since 7 (1,N) is nearly proportional to N, the storage capacity 
required for the birth rate memory, as well as for the transfer- 
parameter arrays G and tT, is proportional to Nes In the computing 
algorithms, the argument K is dropped from ec and S in Eq. (2B.10); 
at time steps when changes are scheduled to be made, the c(I) ae 
S(I) are appropriately altered. Storage is not required for the past 


history of these parameters. 


From Eq. (2B.10), it is clear that the number of computing 
operations required to compute all B(I,K) at time step K is approxi- 
mately proportional to nN“. The computing time for our IBM-7094 codes 


can therefore by estimated be the relation 


Ze : 
Ceonpe = a,N” seconds per time step, (2Bei2) 


where a, is equal to .0002 for Models I amd M and .0005 for Model Pie 


If we allow twenty seconds for reading in the program and problem data 
and computing the transfer parameters, approximately one minute is 


required for a 200 time-step, twenty region, Model F calculation. 


Note: For optically-thick systems, in which contributions to B(I,t) 
from source regions optically=-distant from region I may be neglected, 
the required number of time steps of memory is reduced. 


¥Note: The values of a, have been determined experimentally from the 
computing times for several problems. 
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From Table 2B.1, 1(I,1I)v/Ax does not vary greatly from 0.3 for 
P(I)<2. Since ~x = W/N, 1(I,I)Nv/W is nearly constant. For a given 
system, then, the unit time step At is approximately inversely propor- 
tional to the number of regions into which the system is subdivided. 
In order to compute a transient having a given time duration, then, 
the required number of time steps is approximately proportional to N; 


the total computing time is therefore approximately proportional to N?. 


For a typical problem with v = 2x10° em/sec and Ax = 1 em, the 
unit time step is approximately 1.5 microseconds. To compute a 
transient lasting 1.5 milliseconds requires that we compute the 
birth rates at 1000 time steps. If Model F is used with N = 20, the 
total computing time is [(1000) (.0005) (400) + 20] sec, or 220 sec. 
From this, it is clear that computing time sets a practical limit on 
the time duration of transients which can be studied using the finite- 


integral method. 


The strong dependence of both storage requirements and computing 
efficiency on N justifies the development of more sophisticated models. 
When comparing two models for computing a given transient, the better 
model is the one that yields a more accurate solution with a smlier 


value of the parameter a,N. 
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£0. MODEL FS? VARIABLE DISTRIBUTION MODEL WITH SUPERIMPOSED FLAT 
AUT ot OPES CORRECTION NODE: 
In this section we develop a variable-distribution model, 
Model FS, in which the birth rate distribution in source region J, 
b(x',t-1(I,J)), is approximated by a sum of a flat mode and a 


linearly-varying slope-correction mode? 
b(x! »t=-t (I,J) ) es B( J, tet(I,J)) <= + C, (Jyter(T,J))u, (x*) @ (Zea) 


Since the integral of b(x',t=-r(I,J)) over region J is, by definition, 
equal to B(J,t-1(I,J)), the slope~correction mode mst be antisymmetric 
with respect to the midpoint of region J in order that its integral 


over region J be equal to zero. Therefore 
e\) = Te 
u, (x = Aloe x] (20.2) 


and C,(J,ter(I,J)) /A is the computed slope of the birth rate 


distribution in region J. 


To get an expression for the slope C,/As we take advantage of 
the continuity of the flux distribution from one region to the next, 
The nuclear properties e¢ and > may be different in each region of 
the system; for convenience, however, they are assumed to be 
independent of time.” We assume that the gross slope of the flux 
distribution in an interior region J at time t-t is given approximtely 


by the expression 


G( J+i t=) /Ax = G( Jal ter) /ax 
LAX ‘ 
*Notez: For the variable-distribution models developed for slab geometry 
in Chapter 3, c and 2 mst be homogeneous across groups of three 
successive regions, but c my vary with time. 





4? 
where Q(J+1,t-T) is the integral of the flux in region J+1 and 


G(J+1,t-7) /ax is the mean flux in region S41. From Ege eQthe ey 


b(x,t-T) 


o(x")2(x")G(x",t-1) + s(x", t-7) 


E(x) O(a! ,t-1) + s(x',t-T) 
= b°(x" ter) + s(x',t-T) , (20.5) 


where 2, is the production cross section and b° is the progeny birth 
rate density. The gross slope of the progeny birth rate distribution 
in region J is thus given by the product of 2 J) and the slope of 
the flux distribution. We assume that the external source rate 
S(J,t-1T) is distributed uniformly over region J; the slope of the 
birth rate distribution is then equal to the slope of the progeny 


birth rate distribution. 


Noting that the integral of b°(x, t-1) over region J+l is 
B°(J+l,t-t) = X (J+1)G(IH, tr), (20 Lt) 
we may write 
C,(J,t-1(I,J)) = 2 (J)CB(S#1, t-1(T,J)) /2,( 42) : 


B°(J-1,t-1(I,J))/Z,(5-1)] 5 (2C. 5) 


for 2SJ <{N - 1) and 


> ew os SP Se ta CS GHD GHD GHD a GHD MS GOD CED ONS OanS OD OED OA OED AE ED GHD CED ES OHS CHD OE GD UD CRD OD OE) ED ED CED OD SD aD GD SS OD GD UE SS ED ED SD OD OH? ED OT GD EN Ge ED Ow OD OD OD a 


*Note: In future sections we adopt the notation G(I,t) to indicate 
the mean flux in region I at time t. 











The unit flat and slope-correction modes are shown in Fig. 2C,1. 


w(x" Ax 





a) Unit flat mode b) Unit slope-correction 
mode VS. Xe 


Figure 2C.1 Unit Modes for Model FS 


The modal coefficient for region 1 is computed using the progeny 


birth rates in regions 1 and 23 


(al 
C,(1,t-1(I,1)) = | as she rer (Gigi) = 1s Mun eea lead) hey ewe: 
Pp 
Similarly, 
C.(N,t-T(I,N ae B°(N t IL z _ B°(N tae (20-75) 
maT yN)) = t(LN) - OT) m1, l=T yN))| °7 


Substituting Eqs. (2C.1) and (2C.6) in Eq. (2A.2) as modified by 
C 
the discrete-delay-time approximation, subtrating S(I,t) from each side, 


expressing B(J,t-rT(I,J)) as a sum of B°(J,t-r(I,J)) and S(J,t-rT(I,J)), 





and identifying terms, we obtain the finite integral equation for 


Model FS3 


N 
B°(I,t) = (I) ) (G(I,d)[B%d,tar(Z,J)) + 8(J,t=r(I,J)) | 
J=l 


Gey p(T od)Cy(Iet=r(I5J))> (2.8) 


where the G(I,J) and r(I,J) are the Model F values, given by 

Eqs. (2B.8) and (2B.9). The numerical model is obtained by replacing 
the arguments t and t(I,J) in Eqs. (2C.5,7,8) by K and 7 (I,J) 
respectively. Memory is provided for both the progeny birth rate 


and the external source rate; the coefficient C., however, is computed 


1? 
each time it is needed, using Eqs. (2C.5,7a, or 7b). The transfer 


coefficient Ga p(t+J) is given by 


[x"-x, ] lea 
Gy p(to4) = Ze dx AD) [ex paca he exp< - [x-x"] feezc) 


(Dx) (ix), xT" lad 
" (20.9) 
from which 
= -P(J Z =-P(J 
ip't>9) Sen RSTeD) l+e ) . Sey [2 - © 
-P, (I,J) -P(T) 
|. i =e | (2C.10a ) 
for Ll ¢ J, and 
Gy p(TeI) = 0. (2C.10b) 


With Model F, the computed leakage from region J of particles born 


in region J is the same in both directions. By adding the slope 
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correction in Model FS, we redistribute the leakage, increasing the 
fraction leaking from region J in the direction of increasing: birth 
rate density and decreasing by an equal amount the fraction leaking 
in the opposite direction. The importance of the slope correction 
increases both with the deviation of the flux distribution from a 

uniform distribution, as reflected in the value of C,(J,t-r), and 

with the optical thickness of region J, as indicated by the ratios 


|G_,_(I,J)|/G(I,J) given in Table (2C.1). 


slp 


The IBM~7094 computing time for Model FS is given by 


_ 2 
een = 0.0009 N- seconds/time step. (26214) 


Table 2C.1 


The Ratio ]G_._(I,J)\/G(I,J) for Selected Values of P(J) 





slp 
ye 
P(J) G(I,J) 
0 

0.02 0008 
0.06 0025 
0.10 | 0042 
0.40 | 0166 
1.0 0410 
2.0 00783 
5.0 21153 





2D. COMPUTER PROGRAMS FOR THE LINE MODELS 


The computer programs developed for testing the line models are 
written in FORTRAN IT language 115 for the TBM-7094 computer. The 
program OVRR4, for use with Models F and FS, handles up to thirty 
regions; nuclear properties may be assigned independently for each 
region. OVRR4 is described in Appendix A. Included are an input forn, 
definitions of the input and output variables, a FORTRAN listing of 
the program liberally annotated by comment statements, and the 


printed output from a simple example problem. 


The problems have been designed for flexibility, both in the 
types of problems which can be solved and in selective rewriting for 
Special purposes. In OVRR4, for example, the values of 21 different 
integer control variables, which must be specified in the input, 
regulate the logical flow of the program and the printed output for 
a specific problem. Some options for simple types of changes in 
sources and properties with time are already incorporated into the 
program. In addition, user-written subroutines SOURCE and TDEP may 
be called at various points in the program to change the source and 
property distributions in any desired manner consistent with the 
model being used. In order to facilitate selective reprogramming of 
any of the subroutines, all important variables, as well as some 
additional dummy control variables and arrays, are included in COMMON 
storage. The structure of the computer program for slab models is 


Similar to OVRR4. 
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2E. TESTS OF ASYMPTOTIC SOLUTIONS 


Perhaps the most convenient class of solutions for testing and 
comparing the various models are the asymptotic (tc) solutions for 
isolated, source-free systems with time-independent properties. An 
asymptotic solution, which describes the fundamental natural mode 


for the particular system, conforms to the following simple relation: 


b(x,t4t) = b(x,t)e” , (2F.1) 


where A is the asymptotic inverse period, ccian The relative x- 
dependence (shape) of the asymptotic birth rate distribution is 


independent of time. 


2E.1 Computational Procedure for Generating Asymptotic Solutions 


The asymptotic solutions are obtained by setting up an arbitrary 
initial memory distribution in the array B(I,K), setting the elements 
of array S(I) equal to zero, and performing the computations specified 
by Eq. (2B.10) or Eq. (2C.8) for all regions 1 < I <N and for as 
many time steps as required for higher modes to decay substantially. 
We test for asymptoticity at each time step K using the following 


procedure. Three regions (I,=1, T,=N/2, and I,=N-3) are arbitrarily 


3 


selected for testing purposes. The following ratios are computed? 


R,(K) = BCI, ,X)/B(I, ,K-1); (2E. 2a) 
Ro(K) = B(I,,K)/B(I,,K-1); (2E. 2b) 
R3(K) = B(I,,K)/B(I3,K-1). (2E.2¢c) 
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As the higher modes decay, the values of R, (K) »Ro5(K) and R.(K) tend 
to become equal and not to change from one time step to the next. We 


therefore compute the value of Y, where 


¥ = (R,(K) - R,(K)| + tR,(K) - R,(K)| + [R,(K) - R,(K-1)] + 
+|R,(K) - RA(K-1)| + [R,(K) - R, (K-21) | ; (2End) 


and compare it with the convergence criterion vy, a number read into 
the computer with the problem data. Values used for y ranged from 
107° to 107", If Y > y the program proceeds to the next time step. 
If Y < y, the asymptotic inverse period is computed according to the 
relation, 


1n(R (K 
cee 2 


m : (2E.4) 


and is printed out along with the normalized asymptotic birth rate 


and flux distributions. 


cE.2 Small, Nearly Critical, Homogeneous System 


For systems which are nearly critical, the ratio RA(K) is very 
close to unity. Over an interval of several time steps, the population 
level changes only slightly. Consequently, slight errors in the 
t(I,J) and errors due to the discrete delay-time approximation have 
negligible effect on the computed solutions. These systems are there- 
fore particularly useful for evaluating the relative performance of 
the approximations made for the x'-dependence of b(x',t-t(I,J)) in the 


various models. 
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In Table 2E.1 are given the inverse asymptotic periods computed 
for a 6.375 cm. homogeneous line reactor with 2 = 0.5 on -, c=] .4, 
Bhd v=2x10° cm/sec. Although the data available for this particular 
system is somewhat sparse, the results illustrate some of the model 
characteristics which were discussed previously in Sections 2B and 
2C. We would expect the more sophisticated Model FS to yield the most 
accurate results. The close agreement of the two Model FS results 
supports confidence in their accuracy. In the following paragraphs, 
the directions of the errors in the Model F and Model M results are 


explained, 


Table 2E.1 


Inverse Periods Computed for 
6.375 em Reactor 





The asymptotic birth rate distribution has a cosine shape, 
symmetric with respect to the midpoint of the reactor.* Consider the 
distribution of births in any source region J which lies off-center. 


The fraction escaping from region J in the direction of the midpoint of 


*Note: The possible functional forms of asymptotic solutions for 
homogeneous systems are derived in Appendix E. Results of shape 
analyses of some distributions computed with the finite-integral 
models are given in later subsections. The normalized asymptotic 
flux distribution, ¢ ot)» computed by Model FS with N = 13 is given 
in Table 2G.1. 
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the reactor is greater than the fraction escaping in the opposite 
direction. Model F, however, equates the two fractions and thereby 
overestimates the net leakage from the reactor. This accounts for 


the smaller growth rate predicted by Model F. 


Model M also equates the two escape fractions. As noted 
previously, however, Model M overestimates G(J,J) and thus under- 
estimates 1-G(J,J), the total fraction escaping from region J. The 
trapping error more than offsets the error due to the equality of 
the two escape fractions, thus underestimating the net leakage from 
the system and resulting in the larger growth rate predicted by 


Model M. 


From the data given in Table 2B.1, Model I would predict a 


still higher growth rate. 


While the percentage differences in the various values of A 
might seem to indicate that Models M and F are unsatisfactory, this 
is not so. The point is that in a very small system, A is extremely 
sensitive to factors that affect the fraction of particles born that 
escape from the system, Here we have exploited this sensitivity to 
illustrate errors in the midpoint and flat approximations. In Sub- 
section 2E.5 we study a system which is identical to the system 
studied here except that the width is 10 cm. For the 10 cm. system, 
2 = 21240 sec™!, Compared with the 300-fold increase in \ for a 57 
percent increase in system width, the one=fold increase in A due to 


the Model M errors indicates that the Model M calculation is 


reasonably good. 
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In later subsections we report results obtained for highly super- 
critical systems, for which errors in the approximations involving 
time dependence have a noticeable effect on the numerical solutions. 
In the next two subsections, methods for testing the accuracy of the 


computed inverse periods are described. 


ZE.3 Theoretical Constraint Relating the Asymptotic Inverse Period 
and the Spatial Distribution in a Homogeneous System 


In Appendix E, the functional forms of asymptotic solutions for 
homogeneous line reactors are derived. Of the three possible forms, 


the following one is of interest to us in this chapters: 


b(x,t) =A cos (alx - w/2]})er* : (2E.5) 


where A is a constant depending on the initial population level 
(arbitrary, for our purposes), and of em™*] and Afsee™ | are constants 
for a particular system. In the rigorous asymptotic solution of the 


transport equations, a and A are related by 


a =5“Le - 1] +4 tLe - 2] - Ane : (2E.6) 


Eq. (2E.6) is a useful tool for testing the accuracy of 
asymptotic solutions computed using our line models. In Subsection 
(2E.5), the method for analyzing the N normalized asymptotic birth 
rates BAT), which are printed out by the program, to obtain the 
corresponding value of @ is described and illustrated by an example. 
We ask the questions “Is this value of a consistant with the value of 
A printed out by the program?" To answer this question, we assume for 


the moment that the value of a is correct for the system studied and 





Pi 


calculate the equivalent value of A, ros using the relation 


r ae 7 
a =v [eles 2) Vee | a | (28.7) 


which follows from Eq. (2E.6) by straightforward aleebral The 
closeness of to the computed value of A is a measure of the 
accuracy of the computed asymptotic solution. Results in Sub- 
section 2B show that the values of d. and A converge with 
increasing WN, illustrating the convergence with increasing N of 
the computed asymptotic solutions to the rigorous asymptotic 


solution of the transport equations. 


2E.4 Solution of Auxiliary Problems--A Method for Isolating Errors 


Due to the Discrete-Delav-Time Apvvroximation 





In this subsection, we develop 2 method for isolating errors due 
to the combination of a fast-growing population and the approximations 


involving time-dependence that are included in our models. 


Let us rewrite Eq. (25.1) in a somewhat different form: 


Bt a@teT) = acemeyen” 
ct T er 
b(x',t)e ~ e (255-8)) 


where 4 is the true value of the asymptotic inverse period, aoe is an 


estimated value, and \” = d-A Substituting Eq. (2E.8) into 


est 


Eq. (14.3), as modified for source-free systems with time-independent 


properties, we obtain 

T Notes Only one of the two values given by Ea. (25.7) is admissible. 
For the systems studied in this chapter, the value obtained using the 
positive value of the square root is applicable. 
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W 
, Ds 
Diet ye= c(x)7 (x) | dx' Bhat) 24 * pot ° 


e) 





d ‘ 
oo = est |x-x? | a fest f dx" x (2E.9) 


Combining the two terms in the second exponent, 


W 
’ e 
bt, t) = ox) 50%) | dx? Be) exp = -- pant ° 
e) 





ea pscesann) 


‘exp ; fest dx" [¥(x"") + ~ . (28.10) 


We now define 


r(x) = H)[1 + ae (2E.11a) 


and 


eNx) = 2) : (Ziel) 
Noi 


[1 + W(x) 


Substituting Eqs. (2E.11) into (2E.10), we obtain 


W 
, ¥ 
0 


os teat J -ozten| (Ziel2) 
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Equation (2E.12) describes the asymptotic brith rate distribution 
in both the reference system with properties 2(x), c(x) and A and 
the auxiliary system with properties s"(x), e*(x) and \*, where W and 
v are the same for both systems. The distribution shapes are the same, 
Note that if 4... were equal to A, the system with properties (x) 
and o “(x) would be a critical reactor, i.e., a steady state system. 


y 
In any case, the inverse period of the auxiliary system isA . 


This suggests the following procedure. Estimating the inverse 
period of the reference system from the results of a run, we compute 
the properties Sise and aS using Eqs. (2E.11). A run is then 
made to find the asymptotic solution of the auxiliary system. The 
predicted asymptotic inverse period is a close approximation of ue 
If the auxiliary systems is nearly critical, errors due to neglect 
of population growth rate in formulating the model are negligible. 
An improved value of A for the reference system is obtained by 


adding 4__, and the predicted \". Furthermore, the shape of the 


ie 
auxiliary system solution better represents the true shape for the 


reference system. 


Thus, we have a procedure which is useful in three ways: to 
evaluate the errors incurred by the neglect of population growth 
rate; to improve the predicted asymptotic solution for a system with 
a rapidly growing or decaying population by solving just one auxiliary 
problem; and to test both the consistency of the method and accuracy 
of the program, since the properties of the auxiliary system differ 


from those of the reference system. 
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We verify that the asymptotic inverse period for the 10 cm 
system studied in the next subsection is 21140 ecces by solving one 
auxiliary problem. It is easy to show that this same basic procedure 
is also applicable for slab systems, In Chapter 3, the procedure is 
used extensively in the evaluation of the discrete-delay-time approxi-e 


mation. 


2H.5 Small, Very Supercritical, Homogeneous System 


In this subsection we report the results obtained for an isolated 
homogeneous system with W=10 em, 2 =0.5 Sie, c=1.4, and v=2x10° cm/sec. 
This system is classified as "small" because it is only five mean 
free paths wide. The nuclear properties are identical to those of the 


nearly critical 6.375 em system discussed in Subsection 2E.2. 


Figure 2E.1 shows the Nedependence of the asymptotic inverse 
periods computed with Models D, I and we The unit time step used 
with Model D was set equal to Ax/4v, consistent with that used with 
Models I and M. Figure 2E.2 shows the results obtained with 
Models M, F and FS. Note the reduced range and expanded scale of 
the ordinate. The broken curves in each figure are plots of N 


versus N, 


Each of the runs yielded an asymptotic distribution which 
conforms very closely to a cosine shape, cos ay, where y=x-W/2. 


The data in Table 2E.2 illustrate the shape analysis of the 16-region 


* Note: Model D is based on an implicit, first-order, finite-difference 
approximation to the differential equations for line geometry. It is 
described in Appendix E. 
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distribution computed with Model I. The normalized asymptotic birth 
rate, Bo(Z)s is assumed equal to the birth rate density, Axl SO”, 
at the midpoint of region I. It is necessary to estimate the birth 
rate density at the midpoint of the system, i.e., at y=0. Note the 


consistency of the computed values of a, particularly for regions near 


the edge. 


in Eq. (2E.7), we obtain h =22EH2 sec 


Using a=.238985 cm 
A similar analysis on the thirteen-region distribution computed with 
Model I yielded  =21145 scene cine A.» as well as A, must converge 
with increasing N, the closeness of the two values indicates that 


they are not far from the correct value of the asymptotic inverse 


period. 


Table 2E.2 


Example of Shape Analysis. Model I, N=16 


Cos(ay.,)= 


B(1)/B, (8. 5) 


(est.) 1.283410 1 

1.279836 0997215 0074651 03125 | »23888 

1251335 97 5008 » 2240 38 09375 | 238974 

1.194969 0931089 0373409 | 1.5625 | .238981 

1.111993 > 866436 O5227 (Cue lov omEnecoge. 

1.004254 » 782489 0672143 | 2.8125 | .238984 
o 874151 »681116 0821510 | 3.4375] 238985 
0724583 ° 504576 ©970877 | 4.0625] .238985 
558878 043 5464 1.120243 | 4.6875] .238985 





The most accurate computation, Model FS with N=30, yielded 


A=21119 and d P1148 Sacre Based on the apparent accuracy of 
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Model FS for the nearly critical 6.375 cm system in Subsection 2E.2, we 
postulate that the small errors in \ and r. are largely due to our 
having neglected the growth rate in formulating Model FS. In order to 
pin down the correct solution for the 10 cm system, then, an auxiliary 
system is defined for d ggt 1130 secs From Eqs. (2E.11), 

5 *=.60565 ent and e =1).15578. A thirty-region Model FS solution of 
the auxiliary system yielded ‘ = 9.8 Soe. from which the inverse 
period of the reference system is 21130 + 9.8 = 21140 oe Shape 
analysis of the asymptotic distribution computed for the auxiliary 
system yielded a = .23899 en”, from which d. = 21140 ae The 


asymptotic solution of the reference system is therefore given by 


b(x,t) =A cos(.23899[x - ser ot 


9 


where X is measured in centimeters and t, in seconds. 


Having established the correct solution, we can now analyze the 
results presented in Figs. (2E.1) and (2E.2). Note that all A and h. 
computed with the integral models converge smoothly, with increasing 


N, towards the correct solution. 


Whereas Model M overestimated the inverse period of the nearly 
critical 6.375 cm system, it underestimates A in this very super- 
critical system. The errors due to the trapping effect and to the 
overestimated +(I,J) act in opposite directions for supercritical 
systems and tend to cancel in this particular case. Model M thus 


appears to be a more effective approximation than it actually is. 
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The excess production due to non-conservation of particles in 
Model I is clearly evident in the A vs N curve for Model I. Considering 
the partial cancellation of errors due to the overestimated t(I,J) and 
the equivalence with Model M as regards storage requirements and 
computing times, we conclude that Model I merits no further attention 
for one-dimensional geometries. Although the accuracy of the ds 
results for Model I my have some significance, the large deviation 
pea from d, does not promote confidence in the use of Model I for 
computing space-time transients. Furthermore, Model I shows no 
significant improvement over Model D, which is approximately twice 


Bs fast (a, = ~0001 sec) as Model I. 


The marked improvement of the results obtained with Models M, 
F and FS over those obtained with Model D is a second example 
supporting the point made in Chapter 1 concerning the smaller N 
usually needed with finite-integral models. The greater speed of 
the Model D program for a given N is attributed in part to the fact 
that the program was designed to solve a restricted class of problems, 
permitting shortcuts, and in part to the fact that the program for 
Model D does not have to compute or search for the argument 7 (I,d) 
for each J-—>I computation. From Fig. 2EH.1 , we see that the Model M 
result for N = 7 is considerably more accurate than the Model D result 
for N = 133; comparing computing times per time step, a,N’, we obtain 
e010 sec for Model M and .017 sec fer Model D. Althouch somewhat 


larger unit time steps may be used with Model D and the performance 





a 
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of Model D for different values of vAt//x is a suitable area for 


investigation, no further Model D calculations were made.” 


The reason that the A computed with Model F are less than those 
computed with Model FS was discussed in Subsection 2E.2. A second 
characteristic of the flat approximation, also due to underestimating 
the fraction escaping from region J in the direction of increasing 
birth rate density, is the generation of distributions which are 
flatter than the correct solutions. For the system studied here, 
Model F underestimates a, and therefore overestimates doo as is 


evident in Fig. 2E.2). 


As regards the more accurate Model FS, all sources of error 
which we have uncovered act in the same direction for this system. 
From the accuracy of the solution for the auxiliary system described 
previously, it is clear that most of the error in the inverse period 
computed with Model FS is a consequence of our having neglected the 
growth rate in formulating the model. From Fig. 2A.%3° one can see 
that if the birth rate increases with time, and if the birth rate 
density in region J is spatially uniform at any given time, the 
birth density in J of particles which can collide in region I at time 
t is largest at the edge of region J which is closer to region I and 


decreases with distance. If we had accounted for this non-uniform 


* Notes gllany, gptions are available for formulating finite-difference 
models, °"~~? For example, explicit, first-order approximations will 
be faster than Model D for a given N and do not require a matrix 
inversion. Further studies comparing efficient finite-difference 
models with the finite-integral models, as regards accuracy per unit 
of computing time, are recommended. 
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source distribution, the t(I,J) would be smaller or the contribution 
G opp t 93)C (5, t-7(T,5)) would be more positive. Either correction 
would result in larger values of A than were obtained with Model FS. 
A third source of error is due to the neglect of the curvature of the 
birth rate distribution in region J. Since the distribution is convex, 
addition of a curvature-correction mode would reduce the fraction of 
particles escaping from region J and, by analogy with Model M, result 
in a larger value of A. The curvature correction is studied in the 


next two chapters in connection with slab geometry. 


Considering the rapid growth rate, the Model FS solutions are 
quite good. The error of the inverse period computed using only 10 
regions [P(I)=0.5] is less than 0.5 percent. For equivalent accuracy, 
16 regions are required with Model F and 20 with Model M. The 
corresponding values of the model evaluation parameter, a,N>, are 
0.9 for Model FS, 2.0 for Model F, and 1.6 for Model M. For this 
problem then, the superiority of Model FS with respect to 


computational efficiency is established. 


2E.6 Large, Supercritical, Homogeneous System 


In this subsection we study a homogeneous system with W = 100 cn, 
m= 0.5 ona ¢ = 1.1 and v = 2x10° em/sec. The optical widths of 
the regions range from 2.5 mean free paths for N=20 to 7.143 for N=7. 
The inverse periods computed with Models M, F and FS are plotted vs N 


in Fig. 2E.3,.. Four points are worth making here. 
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First, the results obtained with Model M are particularly poor 
due to the large region widths. From Table 2B.1, the errors in the 


Model M delay-times grow rapidly with P(I) and P(J). 


Second, the computed distribution shapes are quite consistent. 
Shape analyses on the Model FS results for both N=13 and N=20 
yielded A. = 9665 Some Based on this, we conclude that the 


asymptotic solution is very closely approximted by 


b(x,t) =A cos(.03028[x - 50])e?°°>* 


Third, the error of the Model FS results, as well as that of the 
other models, is much larger for the 100 cm system than for the 10 cm 
system. This is due to the greater effect in the larger system with 
P(J) > 2.5, of the neglect of curvature and growth rate in the 
expressions for the transfer parameters. Although the inverse period 
is less than half that of the 10 cm reactor, the growth rate effect is 
moreimportant here because the ratio Ro of Subsection 2E.1 is much 
larger (R., = 1.053357 for the 20-region Model FS run), the number of 
time steps required for a particle to cross one region is somewhat 
greater, and the relative importance of the slope correction increases 
with P(J). In the summary of this chapter, we suggest a simple 


modification of Model FS to account for the growth rate in region J. 


Fourth, the accuracy of the 10-region Model FS result is equiva- 
lent to the accuracy of the 20-region Model F result. The advantage 
of Model FS is greater here than for the 10 cm system of the previous 


subsection. 
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2E.7 Inhomogeneous System 


The systems studied thus far have been homogeneous. In this sub- 
section we report the asymptotic solutions obtained for an inhomo- 
geneous system with W = 10 cm and v = 2x10° em/sec. The collision 
eross section is 0.5 em over the entire system. In the interval 


O< x< 5 em, c = 1.4; in the interval 5< x< 10 cm, c¢c = 0.9. 


Runs were made using Model FS with 10 and 20 regions. From the 
10-region run we obtained A = 506 sec}; from the 20-region run, 
A = 533 Pea athe normalied asymptotic flux and birth rate distri- 
butions are plotted in Fig. 2E.4 . The curves are drawn through the 
N = 20 data. The discontinuity of the birth rate density is a 
consequence of the discontinuity of c. The apparent continuity of 
the flux derivative at the interface is a consequence of the homo- 
geneity of the collision cross section. The closeness of the two 


solutions is consistent with the results obtained for the homogeneous 


systems and indicates a high degree of accuracy for the N = 20 solution. 


Summary 


From the results presented in this section, it is clear that Model 
FS is preferable for problems in which the flux varies smoothly with x 
and t. In those cases where model comparisons have been made, Model FS 
has yielded more accurate solutions for less computing time. As 
regards the other models, we have already discarded Models I and D. 
Based on the Model M results for the 100 cm system, the applicability 


of Model M is restricted to systems with small P(J), say P(J) < 0.5. 
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2F. TEST OF TRANSIENT RESPONSES TO LOCALIZED INITIAL SOURCES 





In the previous section we tested the finite-integral models on 
the simplest, least demanding class of time-dependent problems-—-the 
generation of asymptotic solutions. In this section we study a more 
interesting class of solutions--the space-time transient responses 
to short-lived external sources localized to a small section of the 


system. 


The transient responses are generated by reading an external 
source distribution and its duration in seconds, or number of time 
steps, into the computer and setting the initial memory distribution 
equal to zero. The birth rate distribution is then computed for a 


specified number of time steps. 


2F.1 Restrictions on External Source Localization in Space and Time 


Figure 2F.1 shows the computed variation of the birth rate 
with time in region 6 of the 10 region, 6.375 em system treated in 
Subsection 2E.2%, Model M was used for these computations For each 


run a unit external source rate was placed in region 3. 


The dashed-line curve shows the predicted response for the case 
in which the unit source rate persisted for only one time step, 
-797 wesec. The oscillations are a consequence of our attempt to treat 
a source localized to a smaller region of (x,t)-space than is 


compatible with the approximations inherent in Model M. Referring 


* Note: Models F and FS have the same basic characteristics as those 
shown for Model M in this subsection. Because the t(I,J) are non- 
integer, however, numerical oscillations are damped out faster. 
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to Fig. 2A.3 , the birth rate B(I,K) receives contributions from 
parents which were born in region J over a time interval equal to the 
time required for a particle to cross two regions. With the discrete- 
delay-time approximation, we assume that the birth rate in region J 
during the contributing time interval is nearly constant and is 
Satisfactorily sampled by the birth rate at the discrete time 
corresponding to K-7, (I,J). Since Ax/v=4At for Model M, Model M 
treats all external source particles colliding in region 6 as 
colliding at time step 4(6-3)+1=13, rather than over the range of 

time steps extending from 11 to 15 for a discrete source in the 

center of region 3, or from 9 to 17 for a uniformly distributed 
source, The birth rates at time steps 14 to 20 are the progeny of 

the births at time step 13 resulting from successive collisions within 
region 6. Note that the peak-to-peak separation is eight time steps. 
The peak at time step 21 consists of second and higher generation 
births due both to collisions of first-generation parents born in 
regions 2 and 7 and to higher-generation parents born in regions 3 to 
5, the latter characterized by reversals of direction in adjacent 
regions of two successive generations, for example, 3 -»5 —--6-—>5-~6. 
The third peak includes contributions from first generation births 

in regions 1 and 8. The fourth peak includes contributions from first 
generation births in region 9; the decrease in magnitude is due to the 
leakage from the system of those external source neutrons emitted 


toward the left, prior to time step 37-7, (651) 7 (Sareea. 





(eC 


the decrease in magnitude of the sixth peak, as compared with the 
fifth peak, is due to the leakage of external source neutrons out of 


the right side of the system. 


Understanding the limitations imposed by the discrete-delay- 
time approximation, we can generate physically meaningful solutions. 
The solid curve in Fig. 2F.1 shows the response for a run in which 
the external source was maintained for eight time steps. The major 
peak and the decreases at time steps 37 and 51 are physically 
meaningful for the reasons stated above. The dips in the response 
near time steps 29 and 47 are non-physical, later generation conse- 
quences of "chopping off the edges" of the major peaks in the 
various regions by starting their buildup too late and stopping it 
too early. Note that the solution for the problem with the eight 
time-step source duration could also be obtained by superimposing 
the dashed-line curve with seven others just like it, but 


a 


successively displaced one time step to the right. 


It is obvious that additional numerical oscillations would be 
superimposed on the solid curve of Fig. 2F.1 if the external source 
rate were maintained for nine or ten time steps. Such numerical 
oscillations are characteristic of all line models for systems having 
regions small enough that the great majority of particles born in 4 
region escape from the region. For an external source localized to 
one region or spread out over several adjacent regions, we have found 
that numerical oscillations are minimized when the following two 


relations are satisfied: 
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2F.2 Transient Response in Small System 


In this subsection we report the transient responses computed with 
Models F and FS for the 6.375 cm homogeneous system of Subsection 2E.2. 
The system is subdivided into 20 regions. An external source is min- 
tained in regions 5 and 6 for three time steps. Since Ax/[vat]=3.08, 
the external source localization in (x,t)-space is nearly compatible 


with the relations (2F.1). 


Figure 2F.2 shows the time dependence of the progeny birth 
rates B°(I,K) for regions 2, 6, 12 and 18. The points marked by dots 
represent the Model F results; the points marked by "x" give the Model 
FS results. Only a representative few of the Model FS data are 
plotted since their differences from the Model F results are negligible; 
both models treat the external source rate as part of the flat mode 
and the ratio [G.,,(Z59)| /G(Z,¥) is very small for P(J) = .1594. 


Note that numerical oscillations are relatively small. 


The major peaks include all first-generation progeny of the 
external source particles. Upon emission, half of the source particles 
travel to the left and half to the right. The two groups of directed 
particles, or waves, separate and move across the system in opposite 


directions at speed v. The major peaks show this motion and the 
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attenuation of the waves with time and distance. The attenuation 
occurs because c = 1.4< 2; for n collisions of particles in the wave, 
only 0.7n particles oa es in the direction of the wave motion. 
Neglecting the ihe numerical fluctuations, note that after the 
source wave has passed a given region I, the birth rate varies smoothly 
for a time and then decreases rapidly for a few time steps. The dip 
in the curve is the reflected result of the leakage of one of the 

two source waves from the finite system. The change is fairly large 
and sudden because the contribution to the flux in region I of 


particles born earlier due to collisions of parent particles belonging 


to the source wave is lost as the wave leaves the system. 


For computing the response to a localized external source in a 
small system such as this, a large value of N is desirable to show 
the detail of the response and to minimize numerical oscillations by 
satisfying Eq. (2F.1a) with the largest possible integer, Comparing 
Models F and FS, Model F is preferable since the Model F solution is 
almost identical to the Model FS solution and computing time and 
storage requirements are less for Model F. Comparing Models F and M, 
Model F will yield better solutions because the non-integer tT (I5d) 
will serve to damp@éd out numerical oscillations caused by discone 
tinuities or steep ramps in the t-dependence of B(J,t-T). Since 
Model Mis more than twice as fast as Model F, however, the question 


of which model is better for a particular problem is left unresolved. 


In the next subsection, we study a large system in which the 
source is spread out over several mean free paths and has a mich 


longer duration than the source in the 6.375 em system. 





Vel 


2F.3 Transient Response in Large, Supercritical System 


In this subsection we treat a 100 cm homogeneous system with 
e=0.5 ent, ec =1.05 an v = 2x10° em/sec. Models F and FS were 
used to compute the transient response to an external source located 
in the interval 10 < x< 20 em and lasting for 32.97 microseconds. 


Runs were made for N=20 and N=30. 


For the runs with N=20, the source was located in regions 3 and 
4 and lasted for six time steps, 64t, where At = 5.49577usec. The 


birth rates were computed for 100 time steps. 


The runs with N=30 were made in order to test the convergence 
with N of the transient responses computed with each model. The 
source is located in regions 4, 5 and 6, which cover the same portion 
of the system as regions 3 and 4 in the twenty-region problem. The 
unit time step, At, was arbitrarily set equal to 3.66345sec, which 
is two-thirds that of the 20-region runs and is less than the r(I,I). 
Therefore, the external source lasted for nine time steps and the 


birth rates were computed for 150 time steps. 


For the appropriate values of I and K, the external source rate 
S(I,K) was set equal to unity for both the 20- and 30-region problems; 
it is here interpreted as the mean source rate density, em “sec os 
in region I at time step K. Since the computed values of B°(I,K) or 
B(I,K) must be assigned the same units as S(I,K), the transient 


results printed out for the 20- and 30-region runs may be compared 


directly. 





The solid curves in Fig. 2F.2 show the 30-region, Model FS 
birth rate distributions at time steps 15, 45, 90 and 150. It is 
obvious that the system is very supercritical. Note the gradual shift 
of the peak birth rate density towards the right. Compared with the 
transient responses reported for smll systems in the previous sub- 
section, the lack of a source wave separation may be somewhat 
startling at first. The reason for it is that the source in the 100 cm 
system is spread out over five mean free paths while that in the 6.375 
em system is localized to a region only 0.319 mean free path wide. 

The great majority of external source particles in the large system 
collide in the regions containing the source, as do their progeny. 
Furthermore, the source duration in the 100 cm system is 21.2 times 


longer than that in the system of the preceding subsection. 


The dashed-line curve in Fig. 2F.3 shows the birth rate 
distribution at time step 150 which was generated by the 30-region, 
Model F run. Note that the propagation rate is greater, the distri- 
bution is flatter, and the total population is smaller than predicted 
by Model FS. All of these effects are consequences of the excessive 
leakage away from the peak of the distribution, an error which is 


characteristic of the flat approximation. 


The points circumscribed by circles are the 20-region, Model FS 
results. The points surrounded by squares are the 20Q-region, Model F 
results. Each set of data is for time step 100 of the 20-region 
problem, which corresponds to time step 150 of the 30-region problem. 
Note that the degree of convergence of the Model F results is poor but 


that the direction of convergence is towards the Model FS results. 
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The convergence of the Model FS results is rather good, indicating 
that the Model FS curves closely approximate the correct solution. An 
important conclusion supported by the data is that the errors of the 
30-region, Model F results are several times greater than those of the 
20-region, Model FS results. Furthermore, the 20-region run was 
completed in less than two-thirds of the computing time required for 


the thirty~region run. 


The direction of convergence of the Model FS results makes sense. 
First of all, the slightly greater population in the 30-region problem is 
consistent with the increasing Avs N convergence curves reported for 
supercritical systems in Section 2E. Second, note that the greatest 
errors occur near the peak of the curve where the shape is convex. 

A curvature correction would reduce the leakage out of those sub- 
regions where the curvature is convex, thereby increasing the magnitude 


of the peak. 


Figure 2F.4 shows the birth rate distribution shapes assumed 
by Models F and FS at time steps 10 and 150 for the purpose of 
computing the transfers (J,10)->(I,10+7, (I,J)) and i 
(3,150) >(1,150+1, (1,J)). The superiority of the Model FS fit is 
obvious. Note that the slope-correction modes are dynamic modes in 


that their shapes vary with time to match the changing population 


distribution. 








B’(J,K-t, (I,J)) —> 
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2G. COMPUTATION OF AN IMPORTANCE DISTRIBUTION 


The capability of our numerical models to handle external sources 
localized in space and time permits the "brute-force" computation of 
importance distributions for systems of the type studied in Section 2E. 
For these systems, the asymptotic flux distribution, the asymptotic 
adjoint flux distribution and the x-~dependence of the importance of 
an isotropic external source are identical. Thus we have another 
method to test the validity of cur numerical models; the computed 
importance distribution should agree with the computed asymptotic flux 


distribution. 


In this section, we describe the method and report the results 
obtained with Model FS for the 6.375 cm homogeneous system of Sub= 
section 2E.2. The system was subdivided into 13 regions. Seven 
transients were computed, each of which is the system response to a 
unit external source in a different region L, where L ranges from 1 
to 7. In each run, the source in region L was set to last for 10 time 
steps and the transient was computed for 300 time steps. By time 
step 300, the higher natural modes in the response had substantially 
decayed, leaving only the slowly growing asymptotic distribution. 


The total birth rate in the system at time step 300, 


N 


> B(I,300), 


I=1 


is a measure of the importance of the external source that was 


located in region L. Since Model FS treats S(L) as uniformly 
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distributed over region L, the sum is proportional to the mean 
importance in region L. By comput ging the sum of the B(I,300) for 

each of the seven runs and by taking advantage of symmetry, we obtained 
the relative importance distribution for the system. The normalized 
importance distribution, 6.(I), is compared with the asymptotic flux 


distribution, @ (I), in Table 2G.1. The agreement is excellent. 


Table 2G.1 


Comparison of Computed Importance and Flux Distribution 


in 6.375 em System 


Asymptotic Flux, Importance, 


d (I) ¢ (I) 


o(/ 117 07114 
JESS 08505 
» 9689 9688 
1.0640 1.0642 
1.1336 1.1336 
1.1761 1.1763 
1.1904 1.1903 





2H. COMPUTED RESPONSE TO AN EXTERNAL SOURCE VARYING SINUSOIDALLY 
WITH TIME 
Systems with time-varying sources or secondary emission 
coefficients are easily handled with the finite-integral method. 


Example problems are now discussed. 


A Model F run was made for the twenty-region, 6.375 cm homo~ 


geneous system with a sinusoidally-varying source in region 3: 
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S(3,K) = sin teed : (2H.1) 


The source period is 24 time steps or 12.415 microseconds, The 


program was run for 400 time steps. 


For this run, a special version of subroutine SOURCE was needed 
to control the time dependence of S(3). By setting the OVRR4 control 
variable NSRC equal to 4, subroutine SOURCE is called at each time 


step and the source distribution is altered according to Eq. (2H.1). 


The birth rates in regions 5 and 18 are plotted versus time step 
in Fig. (2H.1). The response settles out after a few periods, with 
peaks separated by 24 time steps. Note that the mean birth rate is 
greater than zero, due to having started with a positive source con- 
tribution. The response in region 5 lags the source in region 3 by 
6.8 time steps and the response in region 18 lags the source by 47.5 
time steps. The corresponding flight times from the center of region 
3 to the centers of regions 5 and 18 are 6.162 and 46.215 time steps, 
respectively. Note the attenuation in the peak-to-peak amplitude 
with increasing distance from the source. This effect is also evident 
in Table 2H.2, which gives the regional birth rates at time step 385, 
at which time the external source rate is zero. The spatial 
oscillations reflect the fact that the period of the source is less 


than the time required to cross the system. 
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Table 2H.1 


Response to Sinusoidally-Varying Sources 
B(I, 385) 


ali 
Z 
5 
by 
D 
6 
7 
8 
y 


| 
oO 





£1. COMPUTED RESPONSE TO A TIME-DEPENDENT SECONDARY EMISSION 
COEFFICIENT 


For this problem we start with the 20-region, 6.375 cm homo- 


geneous system having 2= 0.5 emt 


andc=1.4. By setting the 

OVRR4 control variable NMEM equal to 3, the known asymptotic distri- 
bution and inverse period (see Table 2E.1) are read in by the program; 
the program then fills the storage locations reserved for the initial 
memory with the asymptotic solution. At time step 1, the secondary 
emission coefficient c is set equal to 2.0 in regions 1 through 6; at 
each subsequent time step it is reduced by 0.012 until the value 
reaches 0.812 at time step 100. At time step 101, the secondary 


emission coefficient in regions 1 through 6 is restored to its 
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original value of 1.4 and is not changed thereafter. The program is 


run for 150 time steps. Model F was used for the computations. 


This problem illustrates the use of the subroutine TDEP. A special, 
but very simple, version was written in order to control the time 
variation of c(I). By setting the OVRR4 control variable KTDEP equal 
to 2, subroutine TDEP is called from subroutine CALC4 at each time 


step. 


Figure <I.1 shows the time response of the flux in regions 3, 
8 and 15. Recalling that the original system is nearly critical, 
note the delays in the propagation to regions 8 and 15 of the effects 
of the discontinuous increase in c at time step 1. Similar delays 
are evident in the propagation of the effects of the discontinuous 
increase at time step 101. Slight numerical oscillations result from 
the large discontinuous changes inc. These appear to have a period 
of approximately three time steps; 3.08 time steps are required for 


a particle to cross one S&region. 


Figure 2I.2 shows the asymptotic birth rate distribution at 
time step 0 and the subsequent distributions at time steps 24, 75 and 
120. The discontinuities at time steps 24 and 75 are due to the 
spatial discontinuity of c. The K=24 birth rates in regions 14 through 
20 are less than .0002 greater than those at K = 0, illustrating again 
the propagation delay. Similarly, the dip in the distribution at 
region 13 of the K=120 curve is due to the fact that additional 
particles born in region 6 at time step 101 have not yet reached 


region 13. 
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Summary of Chapter 2 


The results presented in this chapter clearly demonstrate that 
that finite-integral approximation is an effective tool for computing 
time-dependent transport solutions. The discrete-delay-time approxi- 
mation is seen to be satisfactory for line geometry. All models 
developed and tested have the desirable computational characteristics 


of explicitness and convergence, 


Due to the small unit time step, the method is best suited 
for computing fast space-time transients of shert duration. Due 
both to the growth of errors with increasing P(I) and to limitations 
imposed on N by limited storage capacity, the method is best suited 
for treating relatively small systems, Space- and time-dependent 
external sources and secondary emission coefficients are easily 


handled with the finite integral approximation. 


Detailed comparisons of the various models were made at approe 
priate points in the chapter. To summarize, the unit computing time 
per [(J-I)] transfer computation is .0002 sec for Medel M, .0005 sec 
for Model F and .0009 sec for Model FS. The usefulness of the fixed 
distribution models is limited to relatively smail systems with 
optically-thin regions [P(I)<20.5]. Where a large N is desirable for 
a detailed solution, such as the fast transient computed for the small 
6.375 em system in Subsection 2F.2, the fixed-distribution models are 
sufficiently accurate and have an advantage over Model FS with respect 


to both storage requirements and computing time. For problems in 
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which there is no ccmpelling reason for limiting the region size, 
however, we have found Model FS to be more efficient in all cases 


studied. 


Concerning the further improvement of the numerical models, the 
addition of a slope correction to account for the grewth rate in 
source region J would be helpful. One simple way to incorporate 
this correction into Model FS is to use the progeny birth rates 
cdl, K-t, (I,J+1)) and B (Jm1,K~t, (I,J=1)) in lieu of 
B’(J+1,K-1, (I,J)) and B (J-1,Ket, (I,J)) in Eqs. (2C.5,7) for 
computing C,(J,K-t, (I,d)). The value of adding a curvature correction 


mode will be investigated for slab geometry in the next two chapters. 


Understanding the physical significance of the approximations 
involved in the various models, one can readily see that the models 
developed have analogues for miti-dimensional geometries and even 
for treating energy dependence, These analogues will be discussed 


in Chapter 5. 
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CHAPTER 3 


THE TIME-DEPENDENT, MONOENERGETIC SLAB REACTOR 


Introduction to Chapter 3 


In this chapter we develop, test and evaluate numerical models 
for Eq. (14.1), the integral-transport equations for slab geometry. 
The basic methodology iliustrated in Chapter 2 is adapted to 
accomplish these purposes. The integral equation for the progeny 


tirth rate, B°(I,t), is derived from Eq. (14.1) in Section 3A. 


Three numerical models for solving the integral transport 
equation, Models F, FS and FSC, are developed in Section 3B. Models 
F and FS are extensions of the analogous models developed for line 
geometry. <A curvature-correction is included in Model FSC. The 
final expressions for the transfer parameters are linear combinations 
of exponential integral functions. The procedure used to compute 
numbers from these expressions is deseribed in Section 3C. Some 
features of the applicable computer program, TOVSR, are discussed 


briefly in Section 3D. 


Asymptotic solutions computed with the numerical models are 
studied in Section 3E. As demonstrated in Chapter 2, these solutions 
are useful for isolating and evaluating the various approximations 
incorporated in the models. The accuracy of the models for nearly-= 
critical systems is established by the asymptotic solutions computed 
for systems reported to be critical in the literature. The technique 
of solving auxiliary problems to determine errors in the asymptotic 


solutions for very supercritical and very subcritical systems is used 





ep, 


to evaluate the discrete-delay-time approximation. In order to test 
the accuracy of computed distributions, the classical Milne problem 
for a pure scattering medium is solved; the results are compared with 
"published data in Section 3F. The transient response computed for a 
system with an initial, localized external source is studied in 
Section 3G. Finally, importance distributions computed for homo-~ 


geneous and inhomogeneous systems are reported in Section 3H. 


Since the slab regions are unbounded in the (y,z)-plane, the 
discrete-delay=-time approximation is found to be inadequate for 
treating systems with rapidly growing or decaying populations. 

In Section 5J, we formulate a miltiple-delay~-time model by sub- 
dividing angular space into Ni angular intervals; this model is 
characterized by improved sampling of the time-dependence of the 


birth rate in source region J. 





3A. 


As with Model FS for the line reactor, the progeny birth rate, 
B°(I,%), is used as the fundamental dependent variable in the slab 
models. This permits discontinuities in the external source distri- 
bution at interfaces between regions, while retaining the capability 
to superimpose flat, slope-correction, and curvature-correction modes 
to approximate the spatial distribution of the progeny birth rate in 


source region J. 


To obtain the integral equation for B°(I,+t), we first substitute 


b(x,t) = b (x,t) + s(x,t) (3A1) 
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into Eq. (14.1) and subtract s(x,t) from each side. Then following 


the procedure of Section 1B, we obtaing 


N i 
B°(I,t) = e(I,t) ) al du dxJ(I)° 
J=] fe) (Ax), 


x 
sf acxrte LL) + orp (=. Gea ft ocem)) 
(Ax) ; x? 
(3A.2) 


3B. FORMULATION OF THE NUMERICAL MODELS 


3B.1 The Discrete-Delay-Time Approximation 


For the discrete-delay=time approximation, we make the following 


substitution in the integrand of Eq. (3A.2)3 
0 
b(x? te ey = b(x*,ter(I,J)) (3Bs1) 


As for Models F and FS for line geometry, +(I,J) is the mean delay 
time between birth and collision of neutrons from a wniformly= 


distributed source in region J that collide in region I. 


Because the regions are unbounded and the transfer parameters 
account for neutrons emitted at all uw in the interval O< pil, 
the errors introduced with these approximations are greater than for 
line geometry. Referring to Fig. 2A.3 , the hatched area in the 
figure applies only for neutrons emitted at » = 1; in an analogous 


diagram for slab geometry, the hatched area would extend back to 


= 





wie 


~co along the time ordinate. Slab geometry thus offers an extreme 


| test for the discrete-delay-time approximation. 


3B.2 Appro 


ximation of the Birt 





Here we derive expressions for the terms in the three-mode 
approximation for b(x',t-1(I,J)), Eq. (1B.1). An external source in 


region J is assumed to be distributed uniformly over region J; i.e, 


s(x° ter ) = SG) ; (3B.2) 


where T is understood to mean T(I,J). The x°~dependence of the progeny 
birth rate density, b°(x",t-r), in source region J is approximated by 
superimposing flat, slope-correction and curvature-correction modes. 

In deriving the three-mode expression for b°(x",ter), we require that 
the properties c and 5 be homogeneous across three successive regions 
which include region J. The progeny birth rate density is then 
continuous across the three regions and is, in most cases, a smoothly- 
varying function. In contrast with Model FS for line geometry, pro- 
duction cross-sections are not needed in the expression for b°(x, ter); 
computing time is thereby reduced and the secondary emission coefficient 


is permitted to vary with time. 


In the computer program TOVSR, the value of the input variable 
KTRL(J) is used to identify the relative position of region J with 
respect to a property-discontinuity interface. KIRL(J) is set equal 
to 1 if there is a discontimity at the left boundary of region J; 
B°(J,ter), B°(J+l,t-r) and B(J+#2,t-1) are then used to compute the 


modal coefficients for region J. KTRL(J) is set equal to ~] if there 
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is a discontinuity at the right boundary of region J; the progeny 
birth rates in regions J, Jel and J-2 are then used to compute the 
modal coefficients. If there are no discontinuities at the boundaries 
of region J, KTRL(J) is set equal to zero and the progeny birth rates 


in regions Jel, J and Jtl are used to compute the modal coefficients. 


Consider the case for KTRL(J) =1. We define 


BY(x", ter) = b°(x}t-r)Ax, (3B, 3) 
a2 = = 
where B°(x,t-r) has the units [(em)*“(Ax) 1 sec ae We next introduce 
the coordinate variable 


, (3B.4) 
Ax 


which has its origin at x9 the center of region J. We next assume 
that the progeny birth rate distribution in regions J, Jtl and J+2 can 


be fit by the following quadratic expression?~ 


O z 
B Gwit-T) = a,ta,wtaw oe (Csies Sy) 


The computed progeny birth rates in regions J, Jtl, and J+2 are then 


given by 


w2 ; 
B°(J,t=r) | dw. +ajw +aow is (3B.6a) 
Sie 


*lote: After the expressions for ao ay and a, in Eq. (3B.5) have been 
derived, Eq. (3B.5) is used to describe the birth rate distribution 

in region J only. B°(w,t=7) may then be assumed equal to zero for 

[w| > 1/2, 
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3/2 
B°(J+1, ter) -{ dua, + aw + aww’) ; (3B.6b) 
1/2 
| and 
5/2 
B°(J4+2,t=7) | dw[a . + alw + aw] : (3B.6c) 
3/2 


Equations (3B.6) are solved algebraically for 222, and a, in terms 


al: 
of the three progeny birth rates. Subsituting the resulting expressions 
into Eq. (3B.5) and rearranging some of the terms, we obtain the 
following expression for the progeny birth rate distribution in 


region J3 


B°(w,t-1) = Bo(J,t-r) + 


2 [4B°( 342, tr) - Se Gap B°( S42, tr) | g a 


2) O 
» | Blotter) = Pte) | P(oa,ten)|[ wg]. pr 


= 12 
Substituting Eqs. (3B.3,4) into Eq. (3B.7), dividing by Ax, 
adding the source rate density to each side, and applying Eq. (3B.2), 


we obtain 


b(x',tet) = b-(x',ter) + S(J,t-t) Ax 


xl eX. 


B(J,t=7) reat C, (J ster) Pre. + 


Hy 
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where the expressions in the three brackets define the unit flat, 
slope-correction and curvature-correction modes, respectively; the 


modal coefficients are given by 
B(J,ter) = B(J,teor) +S(d,ter) , (3B.9a) 
Cy(Jytet) = AB(J+1,tor) = 3B°(d,t-r) = B(J+2,t-t) , — (3B.9b) 


and 
B°(J#2,t-T) + B°(J, ter) o 
Co(J,t-7) = 2 - B (J+1,t-r) : (3B. 9c) 


Only the expression (3B.9a) is independent of the value of KTRL(J). 


For KTRL(J) = -1, we obtain 
Cy (Jytet) = -HB°(Jel,t-r) + 3B°(J,t-t) + B°(Je2,t-r) — (3B.10a) 


and 


.@) ©) 
Co(Jyter) = SAdeeakat) + BAy tot) _ p(selyter) « (3B.10b) 


Z 


For KTRL(J) = 0, we obtain 
C,(J,ter) = B’(J+1,ter) = B’(J-1, t=) (3B. 11a) 


and 


© 0 
Co(Jyter) =P bdthetar) + B Adee) _ Bw (d,ter) (3B.11b) 


2 
Note that C, is positive when the birth rate density increases with x 


and that C, is positive when the curvature is concave, The integrals 


* Notes u(x"), u(x?) and up(x"), respectively, of Eq. (1B.1) 
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osver region J of the unit slope-correction and curvature-correction 


nodes are equal to zero. 


3B.3 Derivation of Expressions for the Transfer Parameters 


Substituting Eqs. (3B.1) and (3B.8) into Eq. (3A.2), we obtain 


N 
B°(I,t) = e(I,t) ), [essa ast-r259)) + 
J=] 


+ G 4 (25d) C,(S,t-1(T,5)) + Gay Td) Cp(Ist=1643))| ; (3Bal2) 
The expressions for the transfer coefficients are given by 


G(I,J) 1 - oo 
ii dx3(I) ia j 
G ip\t99) 3/ » | ‘i if dx Sl al 
O (Ax), Ax) ; 


G ysled) ee 2 1 
AX eZ 


x. 
oo |= if Foc) (38.13) 


x? 


Based on a uniformly distributed source in region J, the delay time 


is given by 


AL 
T.,0) = PNG(I,d | uf | See | , dx? -« Ta : 
O x T x. 5 


x 
oo - | aia) (38.14) 
x? 


[x=x"| 


Eqs. (3B.13) and (3B.14) may be integrated rigorously, yielding 


closed-form expressions in terms of exponential integral functions. 
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The exponential integral function of order n is defined as follows: 


OO 


i 
E.(p) = if dhy gh eS = | ie (3B.15) 
1 O 


where y = 1/n, n> 0, and p is a dimensionless parameter equal, for 
our purposes, to an optical width in mean free paths parallel to the 
x-axis. The limiting value of E (p) as p approaches zero is 1/{n=1] 


for n> i. 


We elected to follow the more physical approach, by analogy with 
the line reactor, of integrating first over x’ and x and then 
expressing the integrals over y as exponential integral functions, 
Figure 3B.1 shows the physical model corresponding to the kernal in 
the integrals over the spatial coordinates for neutrons emitted 


towards the right at the angle cos". 


In order to check the derived expressions, we replaced the 
integrals over u in Eqs. (3B.13) with appropriate B, (p) kernals and 
then carried out the integrations over regions J and I. For this 
procedure, the following two relations, given in the “Handbook of 


Mathematical Functions"~°, were needed?$ 


dE 4 P) 
<a Ep), | 82 0 (3B.16) 
nE (Pp) =e = pPE(p), nZl . (3B.17) 


After considerable algebra, the same expressions were obtained for 


the transfer coefficients. 


Region 


Particle Path 





- q 
Length = =—< 
Unit Mode 
g i wf 
ource = cos 7 ub 
u(x" )dx' ¥ ae Sag eee, ba 
S39 
ax? 
| 
! 
x Ax 
x 
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Figure 3B.1 Physical Interpretation of Transfer Kernel 
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As in Chapter 2, P(I) is the optical width of region I, 2(I)Ax, 
in mean free paths parallel to the x-axis; P(I,d) is the sum of the 
optical widths of all regions lying between I and J. The expressions 
derived for the transfer parameters are then given by Eqs. (3B.18=-19): 
for purposes of brevity, P. is gee Mead for P(I), P, for P(J) and 


P 


» for Pi (13d). For I=J? 


aCe 10) ee <= [0.5 - E,(P;)] 3 (3B.18a) 
a 
Gay (Is) = 0 ; (3B.18b) 


sryTol) = Bp [-065 + By(Py )] + Sy (1 + 3, (y )] + 


a 


u 
ae [-0.5 + 2E,(P,)] 5 (3B.18c) 
1+) el 2B,(P)] Jax 
(I,J) = ee =. (3B.18d) 


The expressions for IA#J are as follows: 


ear,J) a [E,(P,) - E,(P, + P.) + EA(P) +P, 4 P.) = E,(P, +P, )d; 
(3B.19a) 


L=J fons + E,(P,4P,) E,(P_ +P AP, ) - E,(P,4P;) J 


boos 
Gaaiptd) = BP [I-J 


os - E,(P,) + £,(P.*P.) - E,(PytPs4P,) + B,(P, +P, ) J] 3(9B.19b) 
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eS 
ie (i,J) = iz, [E..(P,) ~ B,(P)4P.) + E,(P)4P.4P, ) ~ E,(P,+P,)] ce 


+s [- B,(P,) - B,(P,#P,) + B,(P,4P.4P,) + 5,(P.4P,)] + 
J 


ue | / 
J 


_ =! 4 ad : 
(I,J) ~ BGC, 3) LB. + Fi @ E,(P,4P 5) + E(P,4P +P, ) 7 


E,(PL+P,) J +{]I-g] - 1JLE,(P,) = ED (P+? 5) + E,(PLtP +P, ) ~ 


TAS 
E,(P,+P; ) J + [-E,(P, 4?) + 2E,(P, PAP.) ~ (P+, ) ] Soe 


(3B. 19d) 


3B.4 The Numerical Equation 


As in the line models, the unit time step, At, is set equal to, 
or less than, the smallest of the T(I,I). The delay times expressed 


as numbers of unit time steps are then given by 
(dog) = teh (33.20) 


Associating time step K with time t in Eqs. (3B.12), we obtain 


N 
B°(I,K) = ¢(I,X) J (2,3), non, (29) a 
J=1 


+ G api tod IC] (J yKer, (1, J)) ate 


+ Gary To) Cy Joker, (T4d) 9 (3B.21) 
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where B, C, and C, are computed according to the relations (3B.9-11) 


and the transfer parameters, according to the relations (3B.18-20). 


In program TOVSR, the transfer parameters are computed once and 
then stored. B, Cy and C., are recomputed each time they are used, i.e., 
for each J->I transfer computation; memory storage is provided only 
for the arrays B° and S, The argument K is dropped from the array 
c and the c(I) are altered at time steps for which changes are 


scheduled. 


3C. COMPUTATION AND ANALYSIS OF TRANSFER COEFFICIENTS 


To compute accurate vaiues for the transfer parameters requires 
accurate values of the exponential integrals in Eqs. (3B.18=19). 
In order to obtain these values, two 250-element tables of E,(p) 
data are read into the computer. The one table includes the values 
of E,(p) for arguments in the range 0.01< p< 2.50, with a spacing 
of 0.01; the second covers the range of arguments 0.1 < p< 25.0, 
with a spacing of 0.1, The E3(p) data for p< 2.0 were obtained 
from the "Handbook of Mathematical Functions"!°, The values for 
p 72.0 were computed with a program written by the author, which 
uses a 40l-point Simpsons’ Rule formila to numerically integrate the 
second form of Eq. (3B.15). The computed integrals are accurate to 
six digits. 

The value of E,(p) for an argument lying between the tabulated 
arguments is obtained by third-order polynomial interpolation, using 


the tabulated values for the argument just less then the desired- - 





107 


? 
argument and for the three suecessivly larger arguments, Test - 


calculations showed that the third-order interpolation scheme yields 
results consistent with the six-digit accuracy of the tabulated data. 
Having found the value of E.(p) by interpolation, the values cf E,(p), 
E, (p) and E.(p) are computed according to the recursion relation, 

Eq. (3B.17). The operations described in this paragraph are performed 
in subroutine TABLE cf the program TOVSR. The values of the exponen- 
tial integrals are then used in subroutine TPARAM to compute the 


transfer parameters. 


Note that the expressions for G, G.5.5 Guy and tv/ax in 
yp? ¢erv 

Eqs. (3B,.18-19) are dimensionless functions of various optical widths 
only. Table 3C.1 contains some sample values obtained for the (IJ) 
transfer parameters. The numbers in the second column, 7v/Ax, are the 
mean flight paths, in units of Ax, of neutrons which are bern in 
region I and collide in region I. In contrast to the Line reactor, 
for which tv/Ax approaches 1/3 as P({I) approaches zero, the para= 
meter assumes very large vaives for smiil P(T) in the slab reactor. 
In optically-thin regions, the great mijority of the emitted neutrons 
that collide in the same region were emitted at large angles with 
respect to the x-axis. One consequence of the Longer mean flight paths 
is a unit time step wrich is mich larger than that for a line reactor 
of equivalent width and number of regions. The third and fourth 
colums contain the flatemode collision and leakage probabilities, 
The fifth colurm gives the net incvease in the coliision rate in 


region I due to a birth rate distribution deseribed by the unit 
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Taplow oC it 


Slab Parameters in Region I vs. Opticai Width of Region I 
- ied) 
ER ig Leakage Leakage Soh 
PUL) PS | OD) | aaa ery | Serv'te?) Gro) ee 
.005 | 30.6 .01631 | .98369 | | -.01587 | 
POLO | 180 002766 | 97234 | -.00384 | 
.020 }10.3 | .o4841 | .95159 | | -.00032 | 
| 


.020 | 7.44% | .06659 | .93342 | | -.00020 | 


075 | 3.68 | .13267 | .86733 ||~.00052|| 00052 0.0006 
loo | 2.97. | .16292 | .83708 | ~.00067 .00067 .0008 
125} 2.52 | .19020 | .80980 | -.00083 | .00083 | .COl0 
20 | 1.80 | .25973 | .74027 | ~.00128 00128 | .0027 
25 | 1.54 | .29874 | .70126 | ~-.00157 .00157 0022 
50 | .962 | .44321 | .55679 | -.00286 00286 ,0C51 
1.0 602 | .60969 | .39031 |} -.00875 | .00475 0122 
2,0 ~371 «| 276507 | .23493 ~ COPY » 00674: ~0287 
4.0 6215 | 87569 | 222431 | -.00748 ,00748 0602 
7.0 6132 | .92858 | .07142 | -.00656 00656 .0918 





—_—— eee 


curvature-correction mode. Since the net birth rate in the curvature- 
correction mode is equal to zere, oG nyited) in colum 6 deseribes 

the net increase in the leakage rate from the region. The ratio 

given in colum 7 clearly shows the increasing importance of the 


curvature correction with increasing P(TI). 


The computed values of ce myst L) for P(Z) < 0.1 are incorrect. 
Consider the third term on the er Side of dee obeloe \. 
Errors in the value of B,(P;) are magnified oy the factor 2/P.”, 
which is very large for smil Pe The tabulated expenential integral 
data and interpolated vailues do not have a sufficient number of digits 


of accuracy to yield accurate values of G.(I,I). The same 


Ciny 
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difficulty is evident in Eq. (3B.19c) for G wyilsd) « Consequently 
the curvature correction should not be applied for source regions 
less than 0.1 mfp thick; the analogous lower limit for the slope 


correction is 0.02 mfp. 


The transfer parameters computed for source region 9 and 
receiver regions I in 4 15-region inhomogeneous system are given 


in Table 3C.2. 


3D. THE COMPUTER PROGRAM TOVSR 


The FORTRAN II program TOVSR is described in Appendix B. This 
program is very similar to the line reactor program OVRR4 as regards 


both general format and flexibility features. 


Bither Model F, Model FS or Model FSC can be selected for a 
particular calculation. These models correspond to the use of one, 
two or three modes, respectively, in Eq. (3B.21). An option is 
available for specifying the level of approximation separately for 
each source region J. Computing times per time step are given by 
Eq.e (2B.12), where cL, is0.0005 see for Model F, 0.0006 see for FS, 
and 0.0007 sec for FSC. 

As in OVRR4, an option is included to permit more efficient 
computation of steady-state distributions and to compute time~ 
independent generation-to-generation transients. With this option, 
all 7). (Id) in Eq. (3B.21) are set equal to unity. This option was 
used to compute the solution of the Milne problem reported in Section 


3F. All other solutions reported in this chapter have been computed 


using the time-dependent option. 





Transfer Coefficients for 


Gy, = O05, 
5G See 


Table 3C.2 


N 
P(T) 
108) 


t = 1.7529 usec. 


0.125, 
0.25, 


i 


i 


yi 22x10? 


i 
ze 


i 


Nx = 0.25 em, 


1=10; 
li=15. 


em/sece 


—= = 0.648 = Nec. of time steps to crosshx 


Transfer Coefficients for J = 9 


W = 3.75 cme 
Ax 
vAt 
I P(T) 
n maa 
2 125 
3 0125 
a 0125 
5 alas 
6 pliZ5 
U As 
8 ol25 
9(I=J) ZS 
10 o 125 
(Interface) 
a. 025 
2 025 
AAS} aD 
14 025 
5 me 
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8.6701 
7 ©9260 
7.1670 
6.3873 
525789 
47263 
307949 
2.6391 
eM S55)5 
2.6391 


3.04297 
3.9669 
44,6198 
52919 
5.9672 


= ©000120 
= 6000156 
= «000207 
= 6000282 
= o000400 
= 000610 
- 001061 
= 6002890 


i 
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3E. COMPUTATION OF ASYMPTOTIC SOLUTIONS 





As with the line models, we begin the testing of the slab models 
by using them to generate asymptotic solutions for source-free systems 
with time-independent properties, The procedure used to generate 


asymptotic solutions was described in Section 2E. 


3E.1 Tests of Reported Critical Thiclnesses 


a 


In an early paper on the 5,, Method, Carlson and Bell” reported 


N 
"exact" critical slab half-thicknesses in mean free paths (mfp) for 
several values of the secondary emission coefficient, c. These values 
are best estimates based on error analyses and convergence trends of 
several methods used to compute the critical half-thicknesses, 

Carlson and Bell conclude that the “exact" values are accurate to 
within one or two places in the fourth decimal place. We have 

tested TOVSR on the "exactly" critical systems having ¢ = 1.4 and 

c = 1.02, treating each problem as an (x,t)-dependent problem and 


generating the approximate asymptotic solution. 


Table 3E.1 gives the asymptotic inverse periods computed for the 
c = 1.4 case, for which the "exact" critical thiclmess, Py» is 
1.4732 mfp. The first six runs listed demonstrate the convergence 
of the computed values of A with increasing N for Model FSC. The next 
two runs permit comparison of Model FSC with Models FS and F, Note 
that the results of Models FSC and FS for N = 26 differ only slightly, 
whereas Model FSC with N = 5 predicts a more accurate inverse period 


than Model F with N = 26, 





, 


Table 3E.1 


Tests of Critical Slab Thickness for c = 1.4 


RONG: ene aes 2.2x10° em/sec 





Tested Sa 1.4732 mean free paths 


Computed 
W, cm zW/P, Model | N j|Inverse Period, 
A,sec 


(critical 
2.9464, 
209464 
2.9464 
2.9464 
2 G64 
269464, 


2.964 
2.964 


(Off-Critical) 








Predicted P. 





HPP PP YP He 


209170 0990 
£09317 0995 
2. 9h64 1.000 
2.9611 1.005 
£09758 1.010 





aLiLs 
The last group of runs are for systems with thicknesses slightly 
greater or less than the "exact" critical thickmess, Note the approxi- 
mately linear relation between the inverse period and W for nearly 
critical systems. Using the results of the 26-region, Model FSC runs 
for 1 W/P a 0.995 and 1.005 to estimate the coefficient of linearity, 
6W/6A, we may calculate the critical thickness which we would predict 
from the values of W and A for any particular run. For example, for 


the 5-region, Model FSC run we obtain 


2.9611 ~ 2. 


Predicted P, = 045 [2.9464 + 2857 ( 270 + 274 


z ] = 1.4740 mfp 


The predicted critical thicknesses are tabulated for the first eight 
runs listed in Table 3E.1. The closeness of the predicted P. and the 
"exact" P. is a good measure of the accuracy of the asymptotic 

solution computed in a particular run. Note that the results for the 
26-region runs with Models FS and FSC are in complete agreement with 


the "exact" critical thiclmess. 


The normalized asymptotic birth rate (or flux) distributions 
computed with Model FSC for N=13 and N=26 are given in Table 3E.2. 
The equivalence of the distributions to within one part in 10,000 
both illustrates the fact that B (I) is an integral over region I 
and demonstrates the high degree of convergence of the computed 


distributions. 
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Table 35.2 


Birth Rate Distribution in Critical Slab having c = 1.4 
B “we B (1) +8, (141) 
B (I) 
069322 APs es, 











ob 4591 «69327 



























































2 o 74064 
3 e81910 085349 085343 2 
4 «88788 
5 © 94876 097561 097562 3 
6 1.00246 
7 1.04933 1.06941 1.06943 4 
8 1.08949 
y, 1.12299 1.13641 1.13644 5 
10 1.14983 
i 1.16999 alpen 1.17676 6,8 
1.18345 
1.19018 1219018 1.19022 i 


1.19018 





Results for the critical system having c = 1.02 are given in 
Table 3E.3; the "exact" critical thickness for this system is 
11.3310 mfp. Again, the results of Models FS and FSC agree closely 
and are considerably better than the results of the flat approxi- 
mation. In order to find the predicted critical thicknesses, one 
additional Model FSC run was made with N = 25 and W = 11.38766 cn, 
0.5 percent greater than the "exact" critical thickness. The inverse 
period computed for this system is 37.4 seem Using the two 25— 


region, Model FSC results to estimate 6W/5A, we obtain 





iS; 
Table 3E.3 


Tests of Critical Slab Thickness for ec = 1.02 


© f= eye 7.=1.0 ee v= 2.2x10° em/sec 


W = 11.3310 cm Tested ae = 11.3310 mfp 


FS 
FSC 
FSC 


| _ 11,38766 = 11.3310 | _ 
Predicted P, = 11.3310 + 1.7| a gBIS = 13520 | = 11.348 mfp 


for the 10-region Model FS run. 





The critical thicknesses predicted by our models are compared 
with the published results of other methods in Table 3E.4. Note 
that the number of dependent variables in the finite-integral models 
is considerably less than the number required for equivalent accuracy 


in Py and Sh Models. 


The results obtained for the two critical systems demonstrate 
the effectiveness of the slope- and curvature-correction models in 
treating the spatial distribution of the birth rate in region J. 
With confidence in the accuracy of solutions computed for nearly 
critical systems, we will next study a very supercritical system. 
With the aid of accurate auxiliary system solutions, we can isolate 
and evaluate errors introduced with the discrete-delay-time approxi- 
mation and find the limitations on the growth rate for solutions of 


acceptable accuracy. 
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Table 3E.4 


Comparison with Critical Thiclmesses 
Predicted by Other Methods 


No. of 
Method Reference Dependent 
Variables 
"Exact® 1.4732 1743310 
Model FSC 1.4732 MoS 
4 " 1.4740 11.345 
Model FS 1.4732 11.348 
EP 1.4768 11.3310 
Pomraning 1.4768 IES Soaks) 
1.4744 11.3388 
1.4766 11.3404 
1.5036 11.3446 
1.5586 11.3656 


Notes: (1) EP is the "Extrapolated End-Point Method." 


(2) The half-thickmess was su jyided into 16 regions for 


the P, and S 


L L computations. 


No. of variables = 16(L+1). 





3E.2 Small, Supercritical, Homogeneous Slab 


In this subsection we report the results obtained for a 10 cm 
system with c=1.4 and 5 =0.4. As was shown in the previous subsection, 
the critical system having these properties is only 2.9464 om thick. 
The data in the top half of Table 3E.5 are the asymptotic inverse 
periods computed by Models F, FS and FSC for several values of N. 

Note that, in contrast with results obtained for line systems and for 
the critical slab system, the data for N= 25 do not converge rapidly 


with increasing N towards a particular asymptotic value. 











Table 38.5 





Computed Inverse Periods for 10 cm Supercritical Reactor 





W= 10 om c= 1.4 5 = 0.5 
y = 2x10" cm/sec 


Model Model Model #SC 
A sect eee Nosecnt 





















30693 
30973 
31096 
31200 







31321 (~6.35) 






Auxiliary Problems; W = 10 em vy = 2.10" em/sec 
Model FSC N = 25 


First Auxiliary | Second Auxiliary 
Problem ! Problem : 


31300 33450 
1.06626 1.04908 














pee 





065650 





, CM 











au 






2135 (-0.4) ~7 4 


3 ae 
A ,sec 








Corrected A = 


x 
ee +A 





33435 (-0.02) 33443 (~ 0) © 







Notes Numbers in parentheses are percentage errors based 
on the assumed accuracy of the results of the second 
auxiliary problem. 






07 
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In order to check the accuracy of the results, we first observe 
that, for sourceefree systems with time-independent properties, the 
same operations may be applied to the slab integral equation, 

Eq. (14.1), as were applied to the line integral equation in 
Subsection 2E.4. Auxiliary systems defined by Eqs. (2E.11), which 
have the same asymptotic spatial distribution as the reference system, 
may be studied. If the auxiliary system is nearly critical, its 
asymptotic solution can be found very accurately, based on the results 
of the previous subsection. In this way, the correct asymptotic 
solution for the reference system may be determined and the errors 
resulting from the combination of the discrete-delay-time approximation, 
the uniform source assumed in deriving the expression for (I,J), and 
the population growth rate may be evaluated. For the 10 cm system, 
two successive auxiliary problems were solved, each using the best 
information available for selecting Nest: As can be seen from 

Table 3E.5, the second auxiliary system is sufficiently close to 
critical that we may be confident in the accuracy of its solution. 

We conclude that the inverse period of the reference system is 

33443 sec -, from which we eadloulate a 6.35 percent error in the 
inverse period predicted by the best reference system run. This is 


considered unsatisfactory. 


To obtain some useful conclusions from the above result, we 
first note that the 6.35 percent error is due to our having neglected 
the growth rates in the individual source regions J in formlating 
the model. For the asymptotic solution ,the computed contribution 


to B(I,t) from parent neutrons born in region J has an unacceptable 
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error when B(J,t°)/B(J,t") = = 33443 sec’+ for t'< es |B) pesiy ob ieeay |. 
where B is the rate of growth of B. For a growing space-time transient 
in a system having the same 2), W and v as the reference system but 
space-time dependent c and 5S, we can conclude that the computed 
contribution to B(I,t) from parent neutrons born in region J would 
have an error at least as large as for the asymptotic solution if 
AC J,t*) = 8(J,t)/B(J,t) > 33443 sec™= for all t°< [t- [lI-Jl - 1]Ax/v]; 
conversely, if B(J,t*)/B(J,t) < 33443 sec -, the error would be smaller. 
The actual error depends on the history of A(J,t°), with greater weight 
assigned to more recent history. The error in B(I,t) depends of 


course on the errors in the contributions from all J. 


The conclusions of the preceding paragraph may be generalized 
to a still broader class of systems by noting that the transfer 
parameters G(I,J), Gapited)s G omy tod) and 7 (I,J) in Eq. (3B.21) 
are functions of optical distances only and are not explicitly 
dependent on Ax or v. For any homogeneous system which has the 
same [=w] and c as the reference system, it can be shown that Model FSC 
with N=25 will yield an asymptotic inverse period which is low by 
6.35 percent. Further, the dimensionless parameter \/[vs] will have 
the same value as for the reference system, 0.3344, although 2, v 
and A may be different from the reference system values. This 
parameter is therefore helpful for correlating errors due to the 


neglect of growth rate in the discrete-delay-time models. 





Ze 

From Table 3E.5, the inverse period computed for the less suner- 
critical first auxiliary system, 2135 sae has an error of only 0.4% 
percent. From the normalized asymptotic birth rate distributions given 
in Table 3E.6, it is evident that errors due to growth rate are 
negligible in the spatial distribution computed for the first 
auxiliary system. The solution of the first auxiliary problem is 
therefore considered to be quite satisfactory. The values of para- 


meters of interest areyW = 6.565, ¢ = 1.06626 and A/[vs] = .0163. 


Similar studies for subcritical systems indicate that spatial 
distributions having negligible error due to growth rate, and 
inverse periods with less than one percent error due to growth rate, 
can be computed for systems with |A| /[vs] a ae discussed 


previously, we can have confidence in the reasonable accuracy of 


computed space-time transients if 
LACa,tWV/Lv2] < 0.02 for t'< tandl<d<n. 


Note that the unsatisfactory convergence of the reference system 
inverse periods with increasinz N is in marked contrast with the 
excellent results obtained for tne 10 em supercritical line reactor 
of Subsection 2E.5. In the line models, the neutrons born in region J 
that collide in region I at time t were born during a finite time 
interval; this interval shrinks to zero withAx, In the slab models, 
on the other hand, the time interval of parent births in region J 
remains unbounded as the width of region J shrinks to zero. To ade- 
quately sample the time-dependence of the birth rate in a source region 
in which the birth rate varies rapidly with time requires use of a 


multiple-delay-time model. Such a medel is formulated in Section 3I. 


Table 3E.6 


Ley 


Computed Asymptotic Birth Rate Distributions in 10 cm Reactor 





Region 
if 


oT i a Ok, SS 
ae) 
WN 


5S 


12,14 
a 


3E.3 Inhomogeneous System 


Model FSC 


Reference 


Problem 
Bo(t) 
0 38798 
« 5SHO64 
«67486 
-79762 
-90981 
ale nails: 


1.10087 
1.17832 
1.24276 
1.29355 
1.33021 
1.35235 
1.35976 





First Auxiliary 


Problem 
Bo(1) 
° 38534 
0 53853 
067325 
© 79652 
© 90924 
1.01105 
1. 10r26 
1.17912 
1.24391 
1.29499 
le oeilse 
1.35413 
1.36158 


mt ee ee ee ne a 


Problem 


BCD) 





038529 
¢ 53850 
067322 
«79650 
.90923 
1.01105 
1.10127 
1.17914 
1.24393 
1.29502 
1.33188 
1.35416 
1.36161 


Second Auxiliary 


ene 


In Table 3E.7, we report the results obtained for a 3.75 cm 


inhomogeneous system consisting of a 2.5 em miltiplying region and a 


1.25 em absorbing region. 


obtained for homogeneous systems. 


the multiplying region and .0139 in the absorbing region. 


The slight errors are consistent with those 


The parameter A/[vS] is .0278 in 


spatially-averaged value is .0232. 


The 





tae 


Table 3E.7 
Tests of Supercritical, Inhomogeneous System 


W = 3.75 cm N=15 v= 2.2x10° em/sec 


Model FSC 
Reference Problem Auxiliary Problem 
Es =1 

Nect = 3032.8 sec 


S*(I) = .51379 
e*(I) = 1.36244 toc io 


$(I) =1.0 SA(I) = 1.01379 
pe 0.9 ttStse 1 ca@l) = 80776 tame 
A = 3032.8 sec” x" = 22,1 sec’ 


1 


Error = - 0.7 percent Corrected \} = 3055 sec” 


Computed Flux Distributions, Q (1) 


Region, I Reference Problem Auxiliary Problem 
a © 79489 79386 
2 © 99206 © 99208 
3 1.14137 1.14142 
Ly 125099 1.25404 
5 i ASB NZ9) aree ohai/ 
mc > 1.37299 1.37307 
@ 1.37838 1.37846 
8 1. 34656 » 34662 
9 1.27563 1.27567 

LO 1.15765 1.15765 

11 ° 92408 09202 

iy 0 7214 0 72145 

i c< l - 56730 56720 

14 043443 043434 

5 © 30784 030775 


—— ee 
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3F. APPROXIMATE SOLUTION OF THE MILNE PROBLEM FOR c = 1.0 


In order to evaluate the accuracy of flux distributions computed 
by the program TOVSR, we applied the program to the Milne problem for 
a pure scattering medium, Weinberg and Wigner? tabulate the relative 
fluxes at various optical distances from the interface which were 
obtained by the exact Wiener-Hopf method and by various order PS 
approximations. We therefore have a basis for comparison. 

The Milne poo ecn ct ceUs a semeinfinite, homogeneous medium 
having an Art carace with a peat = 0 and an external source at 
x =00, The interesting part of the solution is the steady-state flux 
distribution near the interface, where the flux falls below the extra 
polated values of the linearly-varying (for c = 1.0) interior distri- 


bution. 


In formlating the Milne problem for TOVSR, which treats only 
finite slabs and has a limit of thirty regions of equal Ax, the 
optical distance between the source and the vacuum interface mst be 
sufficiently large that effects of the isotropic source and the right~ 
hand boundary on the spatial and angular flux shapes in the interior 
are small. Furthermore, considerable detail concerning the spatial 
shape within two mean free paths of the interface is desired. Since 
this problem is a steady-state problem and since all of the expressions 
for the transfer coefficients involve optical thicknesses only, the 
above requirements are met by stretching the medium in the vicinity 
of the interface and then treating the system as inhomogeneous. In a 


thirty-region run, the twelve regions near the interface cover 0.6 mfp, 
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the next six regions cover 3.0 mfp and the final 12 regions cover 


24 mfp. The external source was placed in region 30. 


The distributions computed by the program are given in Table 3F.1. 
Since the rate of convergence towards the steady state solution was 
very slow, several successive runs were made with improved estimates 
of the solution read in as the initial distribution” The data 
given in Table 3F.1 are not a fully converged solution but are close 
enough to permit meaningful analysis. The ratios B(I,K)/B(I,K-1) 
for regions 1, 3, 11, 16, 25 and 30 are .9999760, .9999761, .9999762, 
9999772, 9999918, and .9999984, respectively. The shape is fairly 
wel] stabilized in regions 1 through 16, which cover the interval 


O< p< 2.7, where p is the optical distance from the interface. 


In order to compare the computed distribution with the numbers 
quoted by Weinberg and Wigner, it was necessary to convert the mean 
flux values, @ (I), to a smooth distribution and then to compute the 
flux at discrete optical distances from the interface. The unfolding 
method used in Subsection 3B.2 to derive expressions for the modal 
coefficients was adapted for this purpose. Treating the data in each 
of regions 1 through 12 as the integral of the distribution in the 
particular region, a program was written to fit the distribution with 


an llth order polynomial and to compute the relative flux at various 


Qe 
Nat ettrre 


f 


optical distances from the interface. The ive flux values were 
then normalized such that ¢(0.1) is equal to 1.2608. In Table 3F.2 


we compare our results with those of the Wiener-Hopf Method and the 

* Note: With the program SLBCEL, written at a later date and described 
in Chapter 4, a fully converged solution can be obtained in a few 
seconds, 
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Table 3F.1 
Distributions Computed by TOVSR for the Milne Problem 
Model FSC W = 30 cm c= 1.0 
N = 30 External Source in Region 30 


























Normalized Normalized 
Region, = (I) Birth Rate Mean Flux 
et) B (I) @ (I) 
il 005 ~00236478 084410 
rs 005 00264078 094262 
5 005 200288541 » 102994 
4 205 .00311616 0111231 
5 A(95 .00333824 2119158 
6 005 00355439 126873 
7 205 00376617 0134432 
8 005 00397461 141873 
9 505 «00418041 0149219 
10 005 - 00438410 © 156490 
11 005 » 00458606 © 163698 
12 005 . 00478663 2170858 
13 50 » 0586824 » 20946 5 
14 $5.8, 00780282 0278520 
15 50 0971683 346840 
16 «50 » 1162269 o414869 
17 o KX) Les 251015 0482773 
18 50 01542561 0 550614 
19 2.00 » 806928 ° 720077 
20 2.00 1.110568 «991037 
Ail 2.00 1.413972 1.261785 
De 2.00 la alrals ys 1. 532317 
23 2.00 2.020046 1.802627 
2H 2.00 25 322/07 2.072713 
25 2.00 2.625121 26342578 
26 2500 2.927321 2.612252 
27 2.00 3.229604 2.881200 
28 2.00 3. 584196 3.153808 
29 2.00 3.853561 3.438800 
30 2.00 3.755054 3.351430 




















Table 3F.2 


Results of Milne Problem - Comparison with Other Methods 
























































Optical Relative Flux Normalized to 
Distance | $(.10) = 1.2608 
from 
Interface, Our Wiener=Hopf Pis Ps 
p Results (Exact) 
0 1.0047(47) 1,.0064(64) | 1.0281(281) 
505 1.1444 
10 1.2608 1.2608 1.2608 
015 1.3682 
20 1.4711 (3) 1.4774(60) | 1.4794(80) 
025 1.5708 
~ 30 1.6682(-3) 1.6770(85) | 1.6876(191) 
035 1.7639 
40 1.8583( =) 1.8683(96) | 1.8882(295) 
45 1.9516 
50 2.0439(—) 2.0547(104) | 2.0831( 388) 
255 2.1356 
60 2.2267( =) Pacem 2.2383(112) | 2.2739(468) 
~70 2.4084( 7) 2.4077 2.4199(122) | 2.4618( 541) 
80 2.5860(-8) 2. 5868 2.5999(131) | 2.6473(605) 
oH 2.7633(=19) 2.7789(137) | 2.8312(660) 
OO 2.9402(-17) 2.9607(188) | 3.0137(718) 
2.00 4.6890 (#12) 4.7152(250) | 4.8108(1206) 
Note: Numbers in parenthesis are equal to CY. pprox. exact 210 
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P. and Pi approximations. The relative fluxes for p > 0.6 were 
obtained by. fitting the local distribution by a quadratic, in the 
manner of Subsection 3B.2. Basing comparisons on the exactness of 
the Wiener-Hopf Method results, note that the small errors in our 
results are considerably less than the errors in the Ps and Pas 


results. 


The results obtained for the Milne problem demonstrate that 
integral regional birth rates BAT) can be computed very accurately 
by our method and can be successfully unfolded to yield a continuous 
distribution, and that the finite-integral method is competitive with 


the Py method. 
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3G. FAST TRANSIENT RESPONSE TO A LOCALIZED INITIAL SOURCE 


fin This section we present results obtained for the space-time 
transient response to an external source localized in space and time, 
The system studied is a 4 cm homogeneous slab having 2 = 0.5 ent 
and c =1.4. The particle velocity is 2x10? em/sec. The system is 
subdivided into 15 regions and a unit external source rate is min- 
tained in region 4 for one time step. The problem studied here for 
slab geometry is analogous to the first problem studied for line 
geometry in Section 2F, in that we compute the transient response to 


an external source rate localized to only one region and lasting for 


only one time step. 


The birth rate distributions computed at time steps 2, 4, 6, 8, 
12 and 30 are tabulated in Table 3G.1. Features to note in the data 
are the existence of a propagation front, the smoothing out of the 
predicted distribution by time step 8 and the onset of asymptoticity 
by time step 30. Note that the computed response does not have the 
violent numerical oscillations obtained for the analogous line 
problem and shown in the dashed=line curve of Fig. 2F.1. This 
difference is due to the following factors. First, in the slab reactor, 
the x-dependence of the neutron distribution, including the original 
external source neutrons, smears out with time because the neutrons 
are emitted at various angles with respect to the x-axis. In the 
line reactor, on the other hand, smoothing results from successive 
collisions only. Second, as can be seen from the parameter vAt/Ax, 
the unit time step is approximtely eight times larger than it would 


be in a line reactor having the same width and properties. Third, 
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Table 36.1 


Transient Response to Localized Initial Source 









W= 4.0 cm 


vy = 2x10? em/sec 
m= 025 emt 
At = 3.209 usec 







ger 
1 | 1.000 0609 
2 1.626 .0776 
Pe) 2-252 .0909 
a 2.941 ped 
5 | 3.480 1102 
6 | 3.992 eatiOS 
7 | 4.487 1200 
8 | 4,969 213 
9 | 5.442 .1200 
10 | 5.908 -1163 
11 | 6,368 uloy2 
ize 6.823 21018 
| 7.274 ~0909 
Met 7.722 20776 
7S) 8.167 » 0610 









the mean angle of emission with respect to the x-axis of the particles 
which are born in J and collide in I decreases as |I-J| increases; 
this is evident in the decreasing value of the ratio T, (I,J) /\I-d| 
with increasing |I-J|. <All of the above factors contribute to the 


rapid propagation and smoothing with increasing K. 


It can be shown that the spatial oscillations in the computed 
distributions at time steps 4 and 6 are physically impossible for the 


Slab system studied here. These oscillations ere numerical conse- 
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quences of the discrete-delay-time approximation and the discontinuities 
in the (x,t)-dependence of the external source rate. To compute a 
solution having more accurate detail, a mltiple-delay-time model 


should be used, 


The importance distributions reported in the next section 
demonstrate that the relative contributions to the total population 
at a later time from initial sources located in different regions 
of the system may be obtained reasonably accurately from the computed 


transient responses to the individual sources. 


3H. COMPUTATION OF IMPORTANCE DISTRIBUTIONS 


In this section we report the importance distributions computed 
with Model FSC for a critical homogeneous reactor and a supercritical , 
inhomogeneous system. As outlined in Chapter 2, the computation of an 
importance distribution involves solving several localized-source 


problems of the type reported in the previous section. 


In Table 3H.1, we report the results obtained for the 2.9464 em 
critical slab which was studied in Subsection 3E.1. The importance 
distribution is compared with the asymptotic flux distribution; percent 
deviations are tabulated. In Table 3H.2, we report the results 


obtained for the inhomogeneous system studied in Subsection 3E.3. 


Note that for both systems the percent deviation of the importance 
from the flux is negligible for all regions except those which are 
adjacent and nexteadjacent to a boundary or an interface. Even for 


the latter regions, however, the percent deviations are very smll. 
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Table 3H.1 


Importance Distribution in Critical Slab having c = 1.4 
W = 2.9464 cm >. = O%5 cm c= 1.4 
Model FSC N =13 


Source Life = 3 time steps At = 2.791 psec 
Importance computed from populations at time step 40. 


Percent 
Deviation, 


7 | 


Normalized Normalized 
Asymptotic Flux, Importance, 100] 
) 


oO 0 
69108 69320 
85564 685343 
© 97558 ©97 563 

1.06933 1.06944 
1.13645 1.13644 
1.17679 1.17676 
1.19026 1.19022 








Table 3H.2 


Importance Distribution in Supercritical Inhomogeneous System 





Region, 


il 


Oo ON WH FW DD -F 


10 


(interface) 


IAP 
a2 
13 
14 
15 


W = 3.75 cm 
mit) = 0.5 em 


S(I) =1.0 en, 
Source Life = 3 time steps. 
Importance distribution computed from populations at time step 60. 
; Percent 
Deviation 












e(I) = 1.4, 
CC LjF= 10.0. 


Normalized 
Asymptotic Flux, 


@ (I) 
» 79489 

«99206 
1.14137 
125598 
1.33129 
1.37299 
1.37838 
1.34656 
1.27563 
pale yes 


. 92408 
«72154 
» 56730 
AZH3 
+ 30784 


















Model FSC 
eee Sao) 
ae ea 


At =1.753 psec. 


Normalized 
Importance, 
9°(I) 


79211 

99511 
1.14140 
1.25392 
1.33138 
1.37310 
1.37840 
1.34662 
1.27758 
1.15542 


92788 
(AL? 
» 56728 
43675 
» 30585 


= 350 
+.304 
+.003 
-.005 
+,007 
+.008 
+,.002 
+, 004 
Pe 53 
~ e193 


+412 
=.603 
-.004 
Te 995 
= O48 


Oe 
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3I. FORMULATION OF A MULTIPIE-DELAY~TIME MODET, 


From the results obtained for the first auxiliary system of 
Subsection 3E.2, for the inhomogeneous system of Subsection 3E.3 and 
for several subcritical systems, we have concluded that the slab 
models can generate very accurate asymptotic distributions, and 
inverse periods accurate to within one percent, for systems in which 
the dimensionless parameter |Al/[vs]< .02. This conclusion was 
extended to space-time transient solutions by use of the local 
parameter A(J,t"). For slab systems with much larger growth or 
decay rates, however, the discrete-delay-time approximation is not 
satisfactory. Recall that, with this approximation, the mean flight- 
time of neutrons which are born in region J and collide in region I 
is a weighted average for neutrons emitted over the entire angular 


range, O< wil. 


In this section we propose a mltiple-delay-~time model which can 
better sample the time dependence of the birth rate in source region J. 
The model is formulated by subdividing the angular range into N, 
intervals of widthAnp = 1/N Sets of transfer parameters having 
the arguments (I,J,I,) are then computed for neutrons emitted in each 
angular interval, identified by the integer Tie For isotropic 
emission, it is not necessary to introduce angular-dependent birth 
rates since the angular dependence of the birth rate is separable 


and is accounted for in the transfer parameters. 


In deriving the expressions (3B.18-19) for the transfer para- 


meters used in TOVSR, we integrated first over the spatial variables 





134 


for neutrons emitted at a fixed angle oe uu. We then weighted 

this expression by the angular dependence of the birth rate distri- 
bution and wrote down by inspection the final expressions for the 
integrals over in terms of exponential integral functions. We could 
have just as easily expressed integrals over the limited angular 
interval identified by I, in terms of what we shall call “partial- 


range exponential integral functions," defined by 


E., (pT) = | du sn-2-P/u ° (31.1) 
(A 


La 
T 


Each of the expressions (3B.19), for I#J, is valid for neutrons emitted 
in the angular interval identified by I. if we merely add I, to the 


arguments of G, G. “ Gary? y and the exponential integral functions. 


lp 
The appropriate expressions for I=J are the following: 


G(I,I,T,) = E,(0,1,) - = [E(0,1 ) ~ £,(P; +1) J3 (31.22) 
1 
G ap(tsT 1.) = (0 (31.2b) 
aa 
G owy(IetsI,) = - e, [E(0,1) - E,(Pis2)] + 


1. 2 | 
2 [E,(0,1) + £,(P,,1,)] - 53 [E,(0,1,) ~ E(P;,T,)] 3 (31-2c) 
- i 


2 
E,(0,1,) + EQ(P;»1,,) = P, [Bs(Oo4,.) = E,(P,»T,,)| 





T(I,I,1 ) = 


c 
<li 


P. G(I,I,I,) 
(3I.2d) 
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Equations (31.2) reduce to Eqs. (3B.18) for N, =e 


The finite-integral approximation for the mltiple-delay-time 
model is given by the following extension of Eq. (3B.21): 
N Ne 


B°(I,K) = e(I,K) ) )  [G(T4d,T,) B(d,K=n,(I4d,T,)) + 
J=l T= 


+ Gay (14d, )C, (J K-17, (I,5,1,)) + 
+ Go (TpI,T,)6,(J,K=r,(I5I,T,))] « (31.3) 


It may be readily seen by comparing Eqs. (31.3) and (3B.21) that both 
computing time per time step and transfer-parameter storage require- 
ments are greater by a factor of uN. in the miltiple-delay-time model. 
Much greater accuracy is expected for time-dependent problems, however, 


with this more complex model. 


In order to evaluate the convergence properties, we recommend 
that the mitiple-delay-time model having flat and slope-correction 
modes be coded and that this model be tested for various Ny on such 
Simple problems as the computation of the asymptotic solution for the 
very supercritical system in Subsection 3E.2 and the transient 
response problem of Section 3G. We also recommem testing the growth- 
rate slope-correction proposed in the summary of Chapter 2. With 
this correction, the expression for C, (J, K-17, (I,J,T,)) for 
KTRL(J) = 0 is 


C,(J,K-1,(I,J,T,)) = BCI, t-1,(I,J41,1,,)) - B(Ja1,t-1,(I,J-1,1,)) . 
(31.4) 
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Equations (3B.9b) for KTRL(J) = 1 and (3B,10a) for KTRL(J) = -1 


are similarly modified. 


Table 3I.1 gives some representative values of the E,(P,T,) for 
Ni, = 6, which were obtained by numerical integration with a 20l-point 
Simpson's formla. Whether simple recursion relations exist for 


these functions is not knowns we did not attempt to find them. 





hoy, 


Table 3I.1 


Partial-Range Exponential Integrals, E niPst,, ie 
for Ny = 6 


BIE, Ran Bem aceap Tea 


O — 1/6} .1340077(0) |.1241001(-1) |.1411972(-2) | .1781372(-3) 
2|1/6 + 2/6) .1598829(0) | .4003413(-1) |.1039401(-1) | .2787545(=2) 
312/6—» 3/6] .1626615(0) | .6779784(-1) |.2863478(-1) | .1224880(-1) 
413/6— 4/6} .1638146(0) |.9556979(-1) | .5613478(~1) | .3319153(-1) 
5} 4/6— 5/6] .1644501(0) |.1233444(0) | .9289403(-1) | .7024536(-1) 
6|5/6—» 1 | .1648533(0) |.1511201(0) eee -1280399(0) 
























































=e we pers 3) .8912697( =!) 
«2801710(-1) | .7365059(=2) | .1996480(-2) 
o 5H64831(-1) | .2324624( -1) | .9927524( 2) 
¢8191410(-1) | .4816390(-1) | .2850730(-1) 
‘el094006(0) | .8243310(-1) | .6236505(-1) 
»1369902(0) |.1259480(0) |.1161303(0) 


eR 
«1103410(0) 
«1307285(0) 
o1402588(0) 
01457870(0) 
1493988(0) 















































»1806494( 6) 
°8251028( =) 
0 1249957(-2) 
06278192(=2) 
0 1903424( ~1) 
4380909 ( =1) 









-1190009(- cs 
+ 2826998 ( ~3) 
2843961(=2) 
»1050383( <1) 
»2503970(-1) 
4739104 =1) 


— 
 3494260( 2) 
©1521981(-1) 
© 2996671(-1) | .1768419(-1) 
438 5285(=1) | .3307038(~1) 
¢ 5590873 (=1) | .5140397(-1) 


Notes Numbers should be mltiplied by 10” » where a is given in 
the parentheses, 


»7905618( = 5 
06541043(-2) 
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Summary of Chapter 3 


In this chapter we have described the development and testing of 
time-dependent finite-integral models for computing transport 
solutions in slab geometry. The results for the Milne Problem and 
for nearly critical systems demonstrate the effectiveness of the 
variable-distribution models. Although the problems studied have 
regions less than two mean free paths thick, the effective optical 
widths are mich larger for neutrons emitted at large angles with 
- respect to the x-axis, Where model comparisons have been made, the 
slope-correction model was found to be far superior to the flat 
approximation, whereas the curvature correction added little 
additional accuracy. Where solution accuracy was compared with 
that of other approximate methods, the finite-integral method was 


found to be competitive. 


The discrete-delay=time approximation is satisfactory for 
systems in which the local population growth or decay rates are 
relatively small, i.e., where |A(J,t")i/[vs] < 0.02 for t® < t and 
15 J<N. For such systems, it has an advantage over the proposed 
mitiple-delay-time approximation in that less storage is required, 
computing time per time step is mech smaller and the unit time step 


is larger. 


The miltiple-delay-time model formulated in Section 3I both 
improves the sampling of the time dependence of the parent birth 
rate and bounds the time intervals of eligible parent births in 


in region J for all I 7d. As this model is a more detailed 


SLB, 
approximation of Eq. (14.1), we expect that the model will be 
effective for treating faster space-time transients with reasonable 


accuracy. 
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CHAPTER 4 


APPLICATION OF SLAB MODELS 
FOR STEADY-STATE CELL CALCULATIONS 


introduction to Chapter 4 


In this chapter we extend the slab models totreat infinite 
systems consisting of repeated, symmetric unit cells. The steady- 
state neutron population in one of these basically absorbing systems 
is supported by an external source distribution, which may represent 
a slowing-down pourcelin a thermai-speed problem or a fission source 
in a fast-speed problem. Because the unit cell is symmetric, we 
focus attention on the half-cell and subdivide it into N regions. 
The boundaries of the half-cell are planes of symmetry for both 
the properties and the source distribution and, consequently, for 
the flux distribution also. Since the angular flux O( 2,1) = 
B(x, 1) at each boundary, the boundary planes are treated as per» 


fectly reflecting surfaces. 


Our purpose in treating these systems is to study further the 


worth of the slope-correction and curvature-correction models intro- 


duced in Chapter 3. Recently published papers report and compare 
certain integral parameters obtained for certain two-region slab cells 
using a wide variety of transport methods, both differential and 
integral. We have, therefore, a basis for comparison. Furthermore, 


finite-integral models developed and coded in the past have for the 


Note: In the statement above, G(x,,y) refers to neutrons moving 
towards the right and G(x ,-u) refers to particles moving towards the 
left, consistent with the interval previously defined for uy, O< pel. 
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most part dealt with the cell problem. The slab formations of 
Honeck?, judge and dunes” are characterized by the flat approximation 
and iterative solution schemes. By making comparisons with Model F 

for given limitations on computer time and stbrage, we show that 

Models FS and FSC, coupled with an efficient non-iterative solution 
procedure, extend the usefulness of the integral approach to larger 


cells and significantly improve the accuracy of distributions 


computed for half-cells thicker than one mean free path. 


In Section 4A, we describe how the expressions (3B.18-19) for 
the spatial transfer coefficients in an isolated slab reactor are 
used to compute the spatial transfer coefficients in the half-cell. 
In Section 4B, we describe the two optional procedures used in 
program SLBCEL to compute birth rate distributions; these procedures 
take advantage of the unique simplicity of the time-independent 
equations. In Section 4C, we deseribe briefly some features of the 


program SLBCEL. 


In Section 4D, we test the models on cells of various sizes 
and compare the results with those reported for other methods, From 
the birth rate and flux distributicns computed by the program, such 
integral parameters as source mltiplication, disadvantage factor 
and thermal utilization are readily obtained. In Section 4E, we 
report the steady-state distributions computed for a large, isolated, 
subcritical slab reactor containing an external source, To obtain 
these results, a special version of Subroutine PARAM] was written 


for the case of non-reflecting boundaries; we were then able to 
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exploit the greatly improved computational efficiency of SLBCEL over 


that of TOVSR for this class of problems. 


4A, COMPUTATION OF THE SPATIAL TRANSFER COEFFICIENTS 


The isolated half-cell shown in Fig. 4A.1, with its perfectiy 
reflecting boundaries, is equivalent to the infinite system of 
repeated symmetric cells, The hypothetical reflections at the cell 
boundaries account for parent neutrons born in image source regions J. 
Focussing attention on the isolated half-cell, note that there are 
two groups of particles which we mst consider separately; those 
emitted towards the right follow the pate sees and those emitted 


towards the left follow the path 2M. . 


A spatial transfer coefficient for the half-cell is then given 

_ by the sum of all of the collision contributions 1, 2, 3, 4, etc. 
from a unit modal source distribution in region J. Each of these 
angle-integrated contributions can be computed directiy from | 

Eqs. (3B.19) for I#J provided that P, is redefined as the sum of the 
optical widths of all regions traversed by the particles after 
escaping source region J and before entering region I on the pass 

in which they collide in I. A modification is required in Eq. (3B.19b) 
for Goa p\to9)5 regardless cof the relative positions of I and J, the 
expression [I-J]/|I-J| is replaced by +1 for particles emitted towards 
the right and by -1 for those emitted towards the left. For IW, 

Eqs. (3B.18a,c) are used to compute the contributions to G(I,I) and 

G omy lst) of collisions occurring before the particles can escape 


the source region, These numbers are then stored. For collision 
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Vay 


contributions in subsequent passes through region I, Eqs. (3B.19) are 


applicable. Note that G5 pt st) is not normally equal to zero in the 


cell formulation. 


In computing the transfer coefficients with Eqs. (3B.19a=c) we 
take advantage of the linearity of the expressions in the E (p). 
Note that Eq. (3B.19c) contains all twelve E Cp) terms required for 
a particular collision contribution. These twelve terms are identified 
successivly by the elements F(1) through F(12) of array F for 
particles emitted towards the right and by the elements F(13) through 
F(24) for particles emitted towards the left. Consider the case of 
the particles emitted towards the right in Fig. (44.1) and their 
contribution to the transfer coefficients for JI. P and P. are 
fixed for all contributions 1, 3, 5, ete. For the collision contri- 
bution denoted by 1, 


Ieo1 
P, = » P(L) (4A.1) 


J+L 

The value of each of the 12 EP) is found and is stored in the 
appropriate element of F. Then PL is increased by 

N 

AP. = P. + 2 3 P(L) ; (4A.2) 

ligt 
The corresponding E_{P) values for collision contribution 3 are found 
and added to the appropriate elements of F. For collision contribution 


es P, is increased by 


Wy 
=t 


emt 


~ 
= 


(4 


¥ F | et 


(\} 


+ 


uw) 


i 


f 


Oo 


tit) 


Tf 
$3 


was 
aie 


ve 


at 


cs 


= 
— 


bez 


o 


( 
oft 
4 


[e, 
ai} 


a 


i! 


[3 
of } 
Uh 
ae) 
af 


8 


+ 
td 


f 


) 


if 
as 


©) 
¢ 


rf 
® 
fF) 


~ 
()) 
md 


eer 


\G 


a 
(vy 
./ 


fr, 
Lund 


ont 


*~ 


- 
(as 


f de 


ows 


Cf 


~~ 
f) 
4 


fry 


(5). 


TCAL 


= 
neds tes 


e 


a a ‘ J 
adem «stu eo 


CLVING 


~~ 
~ 
—- 


onl 
= 
= 


rs 
wd 


OC 
» | 
a ae 


Pe ee 
‘yy S; 
a wh =_ 


—> 


_— To 4 
=~ 
=_ 2&2 aa 


NON= 


AND 


YE 
ry = 
aw § 


i= 
‘> 


= og 
=> ah 


T 


-_ 
= 
== § 


) 


Aw a” 4 te Pe om =~ awe =e 
-—= 
Gees a eS BS wwe ote Pd 


¢ 3 
-_ a 
—— 


ret m 
Se ee 


. = 
C2ULG Of 


as 


emits 


| 


* 


| 
ff) 


a 
= 


a 


nh 


ths 
5 
€ 
sf 
,f) 


q 

} 
rf 

aj 


thy 
fh 


¢ 
«ty 


wh 


© 
@ 
ri 

¢ 
tf} 


O 
i 


‘ 
as 


‘f 








146 


which include region J. Because the external sources normally 


represent fission or slowing-down sources, we treat the external source 
distribution as continuous and smooth across the same regions. B(I,K) 
is used as the fundamental variable in program SLECEL; slope and 
curvature corrections are applied to the external source as well as to 
the progeny birth rate, The generation-te-generation finite-integral 


approximation is then given by the folicwing set of equations: 


N 
B(I,K) = c(Z) 9 (G(I,I)C(5,K-1) +6. (T,d)C\(JpKel) + 
ja 


G wy btod)Co(T,K~1) J + S(I) ; (4B.1a) 
C (J, K=1) = B(d,Kel) ; (4B.1b) 
for KIRL(J) =+1, 


C,(J,Kel) = 4B(J41,K-1) =~ 3B(J,K~1) - BCJ42,Ke1) ,  (4B.1c) 


and 


QD 
Co(J,Ku1) = Bidteala tl BIRD) | B(g41,K.2) 5 (4B.14) 


C,(J,K-1) = -4B(J--1,K-1) + 3B(J,K-1) + B(J=2,K-1) , (4B. 1e) 
and 


(a, K-1) = BidneaKed) + Bld Kel) = im eb er (4B. 1£) 


finally, for KIRL(J) = 0, 
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C,(J,K-1) = B(J+1,K-2) ~ B(J=1,K-1) , (4B.1g) 


and 


Cp(J4K=1) = PAttaKet) 5 Bidet) _ Bg ,K-1) . (4B, 1h) 


2 


Since the generation agrument is the same for all terms in Eqs. 
(4B,1beh), we can directly substitute these expressions into Ea. 


(4B,1a) and generate the following matrix equation: 
B(K) = stB(K-1) +S , (4B.2) 


where B and S are colum vectors, ¢ is 2 row vector and T is square 


matrix N elements on a side. If we now compute the matrix, 
H = crs (4B. 3) 


we obtain the simple iterative operational form 


B(K) = HB(K-1) +S , (4B. 4a) 
or 
N 
B(I,X) = > RCEAINE COeKednce Sn) (4B. 4b) 
J=L 
In SLECEL, the transfer coefficients aie DecCd in subroNtine 


PARAML, the arrays T and H are computed in Subroutine PARAM, and an 
option is available for computing the solution by iteration (4B.4) in 
Subroutine CLCITN. Our purpose for including the iteration option 
into SLBCEL was to check the solutions computed by the more 


efficient none-iterative scheme described below. 
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4B.2 Non-Iterative Computational Procedure 


If B(K-1) in Eqe (4B.4a) is the correct solution vector, the 
computed B(K) will equal B(K-1). The converged steady-state solution 


B for Koo is then given by 
[I-H]B =S , (4B. 5) 


where I is the identity matrix, with elements on the principal 
diagonal equal to unity and all other elements equal to zero. The 
vector B is the only unimown in Eq. (4B.5). The equation therefore 


represents a set of N linear, inhomogeneous, algebraic equations. 


In order to solve these equations, the M.I.T. Computation Center 
Library function xsIMEor’? was used in Subroutine CLCMEQ. XSIMEQF 
uses a reduction procedure to solve the set of N equations. For all 
problems in which the XSTMEQF—computed solutions were tested by 
iteration, the iterated solutions agreed to within 3 units in the 
seventh digit. The non-iterative solutions are therefore as accurate 


as can be desired, considering the approximations in our method. 


4C. THE COMPUTER PROGRAM SLBCEL 


The FORTRAN II program SLBCEL is listed in Appendix C. The 
program may be used with N = 40. Inputs are P(I), c(I), and S(I) bi 
The locations of property-discontinuity interfaces are specified by 
KTRL(J), as in TOVSR. The model to be used for approximating the 


birth rate distribution in region J is specified by KMDC(J), as in 


* Notes: There is no need to specify Ax or W for time-independent 
problems, 
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TOVSR. The use of either the iterative or the non-iterative solution 
procedure is optional. With Model F, all N regions may be assigned 
different properties. With Model FS or FSC, properties mst be 


homogeneous over intervals of at least three regions. 


Program output includes the unnormalized birth rate distri- 
bution, the normalized flux distribution, and the cell miltiplication. 
The relative flux distribution (mean flux in region I) is computed 


according to 


gr) = De SQ , (e.1) 


it is then normalized such that 


N 
) WI) =n. (4,2) 
T=1 | 


The cell mitiplication is given by 


N N 
Multiplication = a B(I) / a S(I) (40,3) 
T=1 [=1 


The major portion of the required computing time is used for 


computing the transfer coefficient arrays G, G. and Ge 


lp Vig 


particularly in the case of optically-thin cells for which NRFL mst 
be large. Note that the transfer coefficients depend only on the 

set of N optical region widths P(I). Once a set is computed, it can 
be used for efficient parametric studies or problems with varying 
property-discontinuity interfaces (consistent with discontinuities in 


P(I), of course), models (F, FS or FSC in a particular region J), 
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secondary emission coefficients, and source distributions. This 
flexibility has been incorporated into the program, To solve successive 
problems having identical arrays G, ae and cz, but different sets 
of KTRL(J) and KMDC(J), the program recomputes the elements of array 
T according to the new discontimity-interface locations and model 
assignments for the various regions. Further, the program logic 
permits the successive solution of problems having the same array T 
but different arrays c and S and different solution procedures, In 
addition, options are included for punched-card output of the 
coefficient arrays and for reading the arrays back in on a later job, 


in lieu of recomputing them. 


4D. RESULTS OF CELL CALCULATIONS 


In this section we report the results obtained in test calcu- 
lations on simple, fuel-moderator type celis reported in the 
literature. Optical thicknesses of the tested half-cells range 


from 0.2208 to 12.22 mean free paths. 


4D.1 Very Small Half-Cell .2208 Mean Free Path Thick 


In this subsection we report the results obtained for a very 
small cell. The half-cell properties and input data are given in 
Fig. (4D.1). This cell was studied by Meneghetta° using the DSN, 
PL and double-P, methods and by church® using his HGI method--an 
approximate integral formulation useful for half-cells less than 


one mean free path thick. 
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Figure 4D.1 Parameters for Small Half-Cell Problem 


The distributions computed by SLBCEL using Models F, FS and FSC 
are given in Table 4D.1. The advantage factor, equal to the mean 
flux in cell section I divided by the mean flux in cell section II, 
is computed from the output distribution. The source in cell section I 
represents a fission source; the cross-sections are those of a fast 
group. Note that the results of Models F and FS are nearly identi- 
cals; the small deviations of the Model FS results have the correct 
directions for a slope correction. The comparative results demon- 
strate that the flat approximation is quite satisfactory for small 
cells with fairly flat distributions and regions with very small 
P(I). Based on the similarity of the Model F and Model FS results, 
there should not be a detectable difference between the Model FS 
and Model FSC results. The Model FSC results demonstrate the effects 
of errors in the computed elements of the array Caen for very thin 


source regions J. We refer the reader to the comments in Section 3C. 
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Table 4D nil 


Results of Small Cell Problem 


| _ Model F Model FS Model FSC 


Mult. 216079 2.16079 2.16067 


















































2 1.1210 1.1210 1.1211 
b(t) (1) of Error 

1 1.27524 | 1.09321 1.09313 1.09288 
2 1.27438 | 1.08968 1.08970 1.08997 + 
3 1.27259 | 1.08260 1.08262 1.08274 + 
4 1.26963 | 1.07083 1.07085 1.07092 . 
5 1.26473 | 1.05137 1.05140 | 1.05147 s 

(interface) 
6 47014 | 1.01614 1.01615 1.01627 2 
7 045928 099267 099266 0 99247 = 
8 45199 | 97691 97689 97683 = 
9 44651 | .96507 96506 96520 A 
10 oA4231 095598 095597 © 95602 - 
11 443904 » 94892 94891 9488 3 = 
12 43659 | .94362 94361 94361 0 
iN. 043481 093978 » 93977 E937 (2 ~ 
14 043365 093727 to e> «93709 = 
15 «43309 © 93605 093604 AWS eh ~ 





In Table 4D.2, we compare the SLBCEL advantage factor with those 


reported for other methods. 


double-P. results. 


values to within 0.5 percent. 


Meneghetti analyzes the DSN, 


Our result agrees with the HGI and double-P 


P. and 


5 


Of all systems solved using SLBCEL, this small cell required the 


longest computing time, 2.89 minutes, 


All but a small fraction of 
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Table 4D.2 


Advantage Factors for Small Celi by Various Calculations 


ee, 
dcuble Py 


as 
Lj 


G SLECEL 


LE ee a Ale) 





Notes: a) DSN, Po» double-P, from Menezhetta— 


b) HGI from Church 


c) Numbers given above were estimated from 
published graphs. 

this time was used in computing the transfer coefficients, Fifty-six 
double reflections were treated; this value of NRFL is equivalent to 
following those particles emitted parallel to the x-axis for 25 mean 
free paths, NRFL and the computing time could therefore have been 
reduced by one-half without noticeable changes in the computed 
distributions. In addition, the closeness of the Model F and 
Model FS solutions shows that a much smaller N would be satisfactory 
with either Model F or Model FS. (Computing time for computing the 


transfer parameters for any particular model is proportional to N“.) 
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This problem requires the use of N =>6 for Model FS, at least 
three regions for the fuel section and three for the moderator section. 
We suspect, based on the N = 15 results and the relative flatness of 
the overall flux distribution that the Model F and Model FS solutions 
for N = 6 would agree closely. In this case, Model F would be prefer- 
able for this problem since it would require computing only the 
coefficients G(I,J) and may yield satisfactory solutions for N< 6. 
For very small cells, then, we claim no advantage for Models FS and 


FSC over the flat approximation. 


Ten solutions were computed during the 2.89 minute job. The 
three non-iterative solutions given in Table 4D.1 were checked by the 
iterative method; in addition, non-iterative and iterative, Model F 
and Model FS solutions were computed for an altered source distri- 
bution in which S(I) =0 for I< 5 and S(I) =1.0 for I =6. These 
latter solutions yielded a disadvantage factor of 1.0741, which is 
the ratio of the mean flux in cell section II to that in cell section I. 
The fact that these ten successive solutions were computed illustrates 


the program flexibility. 


4.2 Intermediate Cells 


In this subsection we study a group of four fuel-moderator cells 
having the properties given in Fig. (4D.2). Half=-cell optical widths 
range from 0.8872 to 3.5488 mfp. Disadvantage factors for these cells 


have been reported by a number of authors. 
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Figure 4D.2 Physical Parameters 
of Intermediate=-Size Hait=Cells 
The input data, computed miltiplications, and computed disad- 
vantage factors for eight runs are tabulated in Table 4D.3. In rus 
1, 5 and 7, different approximation models are used in the fuel and 
moderator regions. Comparing runs 4, 5 and 6, note that the curva- 
ture correction has negligible effect on the solutions for the 
largest cell of this group. Comparing runs 7 and 8, note that the 
use of the slope correction in the moderator regions gives a smil 
but significant improvement over the values obtained with the flat 


approximation. 


The relative flux distributions for runs 1, 2, 3, 4 and 8 and the 
birth rate distribution for run 4 are given in Table 4D.4. Comparing 
runs 4 and 8, note the tendency of the flat approximation to produce 
a distribution which is too flat; this effect is general. The 
increasing spread between high and low flux values with increasing 


cell size is evident in both the distributions and the disadvantage 
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Table 4D.3 


SLBCEL Runs for Intermediate Cells 
Fuel2S(1I)=0 oe 0 
Run 
No. 


No. of No. 


005825 
















Dise 
advantage 
plication] Factor 












1.0979 
Pecouy 
1.4075 
1.6283 
IseVASIS 
1.6283 
1.6284 
1.6241 


factors. Fig. 4D.3 shows the flux distribution in the half-cell with 


the 0.4 com fuel region. 


The calculated values of the disadvantage factors for the four 
cells are compared with values reported in the literature in Table 4D.5. 
Note the scatter in the results potainied by different workers. The 
SLBCEL values fall within the range of the results of the more 
rigorous of the other methods-<the Se cokeeloteno and the methods 
of Weiss and Ferziger/Robinson. 

In order to check the SLBCEL value of 1.628 for the 1.8 cm half- 
cell, further Model FSC tests were made with varying numbers of sub- 
regions in the fuel and moderator sections. These tests were expected 
to point out any inconsistencies in our cell formulation or to estab-= 
lish the degree of convergence of the solutions with respect to the 
number and disposition of subregions. The results, given in Table 


4D.6, strongly support the value quoted in Table 4D.5. 





Table 4D.4 


Computed Distributions for Intermediate Cells 


Normalized Mean Flux in Region I 


Run 1 
ITja=0.el 
i 0 922H6 
By 92553 
3 93015 
4 | 393822 
5 096241 
6 © 98433 
7 099709 
8 | 1.00677 
9 | 1.01456 

10 | 1.02088 
fie) 2.02627 
12 | 1.03069 
13 | 1.03434 
14 | 1.03733 
15 | 1.03960 
16 | 1.04135 
17 | 1.04241 
18 | 1.04306 





ag 


mM MH DN NY NW N 
RRREORAS 





ae) 
NI 


» 83498 
083938 
84885 


° 91583 

95766 

«98610 
1.00856 
1.02719 
1.04295 
1.05637 
1.06774 
1.07725 
1.08504 
1.09119 
1.09576 
1.09879 
1.10030 








Run 3 Run 8 
== 0.3 a= 0.4 
Model F 

o/ 5927 » 4.99 
A iAsyealak 00534 


© 76795 ©0607 
ot Lo 06721 
079070 6889 


e814 | 271k 
087952 07815 
094519 o S460 
099217 “(SIS )s¥e 
1.03049 09371 
1.06305 09743 


1.09110 | 1.0078 
1.11531 | 1.0383 
1.13604 | 1.0660 
1.15354 | 1.0914 
16795 | RetS 
etl 2959 I) lels5> 
1.18792 | 1.1543 
1.19358 | 1.1712 
1.19640 | 1.1861 





Run 4 . 
a = 0.4 
Model FSC 


054863 
065213 
065933 
~67070 
268729 
271229 
78016 
o BA540 
eS9491 
0 93704 
097434 
1.00797 
1.03854 
1.06643 
1.09188 
1.11506 
1.13608 
1.15502 
1.17196 
1.18692 
1.19995 
1.21108 
Le 22032 
227720 
2825025 
1.23691 
1.23874 


—y---- 


Ly 


B(T) 
Run 4 


a = 0.4 
Model FSC 


3011204 
3.12884 
3216339 
3621795 
3029753 


24,6064 
259886 
27 os 
28.2067 
29 14-56 
£99992 
30.7780 
31.4887 
32.1359 
3207229 
3302519 
3307247 
3461425 
34. 5064 
34.8172 
350753 
35-2814 
3504356 
3505383 


35-5896 
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Table 4D.5 


| Disadvantage Factors for Intermediate Celis by Various alubinaas we 






Disadvantage Factor 








ine 
and Clark 


Theys 







S 

( Perkins ) 
Weiss 
SLECEL 


Ferziger and 
Robinson 


5 (The 45) 













Pomraning 





The footnote referenced by Table 4D.5 indicates discrepancies 


in the exact values of ¢c used by different workers. In order to 

_ check the variation of the disadvantage factor with different 

| combinations of ¢ in the fuel and moderator, four additional runs 
were made using the transfer coefficient arrays previously computed 


and punched out on cards. The results are given in Table 4D.7, 


* Notes In Table.4D. 5, all references use 2s = 717 on™ in the fuel 


Oma 2, = 2.33 ae in the moderator. It seems that there are some dise 
crepencies, however, in the vaiues used for,c in the various calcula- 
tions. Reference 22 specifies 3, = .32 em in the fuel andd, = 

0195 cm in the moderator, where %. is the absorption cross section. 
From these values we calculated our values of c. References 18,21 

and 23 specify c = 0.554 in the fuel and c = 1 or 1.000 in the 
moderator. With the latter values of c, SLBCEL solutions yield some- 
what larger disadvantage factors than those given in Table 4D.5. (See “1 
Table 4D.7) The earliest of the references, 24, specifies lis ee 2320 em 
in the fuel but does not specify either ec or 2, for the moderator, 
which is water. 
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Table 4D.6 


Disadvantage Factors for the 1.8 em Half-Cell with 
Various Arrangements of Regions 


Optical Width of Fuel = .2868 mean free path 
Optical Width of Moderator = 3.262 mean free paths 





Disadvantage 
No. of Fuel Regions | No. of Moderator Regions Factor 
aia by, 4 R27, 
aa 8 14 1.6280 
27 6 fait iozo3 
30 3 27 1.6283 
9 covering .699 mfp 
28 8 20 nearest interface 
11 covering the 1.6284 


remaining 2,563 mfp 


Table 4D.7 


Variation of Computed Parameters with c in the 1.8 cm Half-Cell 


Sa I ae re 


Model FS N = 27 (6=21) 


Moderator Multiplication Disadvantage 
Cc Factor 


© 553696 0.991631 32.463 1.6283 
» 553696 2,0 43,968 1.6374 
2554 1.0 43.987 1.6370 
0554 0.99 30.898 1.6262 





from which it is clear that the disadvantage factor does not vary 
greatly with c. Note, however, the sensitivity of the cell 


mitiplication. 


The job time for the four runs of Table 4D.7 was only 0.59 


minutes, of which only 17 seconds were used for executing the 
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program. Since the arrays, G, Goip are oe y had been computed 


p 
previously, we can conclude that the time required to solve a twenty- 
‘seven region problem by the non-iterative method is approximately 
four seconds. The usefulness of the SLBECEL for parametric studies 

is evident. Once the value of N and the values of the P(I) are 


specified, the arrays G, Ga » and Gee are determined. These arrays 


p 
can then be used for successive problems with varying numbers and 
locations of discontinuity interfaces, varying c(I) and varying 


source distributions, 


For the intermediate-size cells, in particular for the 1.8 cm 
half-cell, we conclude that Model FS is the more satisfactory Model. 
First, note that the 27-region, Model F result in Table 4D.3 is not 
as accurate as the ll-region, Model FSC result in Table 4D.6. 

Model F with N = 27 requires more computing time and storage than 
Model FSC with N =11. Second, note that the integral parameters 
in Table 4D.3 obtained with Models FS and FSC for N = 27 are 
identical. From results presented in Chapter 3 and in the next 
section, it is not likely that Model FS and Model FSC results would 


differ by mich for smaller values of N. 


4D.3 Very Large Half-~Cell 12.22 Mean Free Paths Thick 


In this subsection we study a representative, very thick half-cell 
consisting of a small fuel region and a large moderator region. The 
half-cell data are given in Fig. (4D.4). Note that we have split the 


moderator region into two sections and have used thinner regions in 
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the section adjacent to the fuel. This cell has been studied by 


2 tea te, 


Weinberg and Wigner” and by Pomraning. 









FUEL MODERATOR 
Os /2 alas mfp 
ea= 0, 51 c = .999060 


1.5 mfp —><— 10 mfp 


5 10 Regions 
-. = 0.12 P(T) = 0.3 | P(I) =1.0 
See) = 0 S(t )e=-0re SG) io 


| 
| 
Figure 4D.4 Input Parameters for Large-Cell Problem 


Calculated parameters of interest for purposes of comparison are 


the disadvantage factor, 








21 
' >) (a) - s(t] C2 10.72) 
a (40.2) 
“el [.99906][11.5] ) [B(Z) ~ 8(1)| 
[=1 
and the thermal utilization, 
6 
A=] ca) - 90001 
t=] 
t= DT (4D.2) 
" S(I) 
I=1 


These parameters, plus the computed mitiplications and distributions, 
are given in Table 4D.8 for runs made with Models F, FS, and FSC. The 


effect of the curvature correction is noticeable but still sm1l. 
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Note that the largest region is one mean free path thick. The flat 

| approximation, Model F, is totally inadequate for this system, 2S can 
be seen from the flattened birth rate distribution in Table 4D.8 and 
in the comparison of our results with published data in Table 4D.9. 
The integral parameters computed with Models FS and FSC agree with 

the exact values, whereas the flat approximation yields poorer results 
than diffusion theory. For the Model FS calculation reported at the 
bottom of Table 4D.9, eight regions were used for the fuel section 

_ and 32 for the moderator section; of the latter, fifteen were 0.2 mfp 


thick and seventeen 0.5 mfp thick. 


An interesting feature of the variable-distribution models in 
SLBCEL is the capability to treat smoothly-varying source distri- 
butions with the same ease as uniform source distributions. For 
example, external source distributions having a quadratic shape 
between two discontinuity interfaces are rigorously represented by 
Model FSC; those having higher-order shapes are approximted by a 
sequence of quadratic shapes, An additional run was made with 
Model FSC to compute the distribution resulting from a source which 
decreases linearly with optical distance from the fuel interfaces 


neutrons (4D ; 3) 


S(p) = 1.575 - O.lL[p - 0.72] —5 
em (mfp)sec 


The computed integral parameters and birth rate distributions are 
given in Table 4D.10, where they are compared with the results for 


the uniform source distribution. 





Table 4D.8 


Results for Very Large Half-Cell 


— | Model F | Model FS Model FSC 





Disadvantage 





Factor 504903 
Thermal a 
Utilization 085599 
Multiplication 154.94 
1 1.50577 1.48962 1.48962 | 237925 
2 1.53902 1.52229 1.52229! .243142 
3 16077 3 1.58973 1.58973 | 253914 
4 1.71714 1.69695 1.69695 | .271039 
5 1.87944 1.85456 1.85454 | .296210 
6 2.12456 2.09266 2209259] .334232 
(interface) --.... |e ee oye ee pe en ee ee ee 
7 13. 5664 13.4331 13.4334 | 428331 
8 16.6450 16. 5643 16.5645 © 530447 
9 19.359 19.2919 19.2918 | .619393 
10 2169142 21.8323 21.8318 | .702233 
tal 244165 2h, 2473 24.2457 | 4780959 
(pseudosinter fa ce) mpromece cmos ayerce a maaan cm ares aaecoen as aco. m8 open me coe ten 282 
12 95.3673 97 0047 97.0161 | 939435 
13 114.1602 | 119.6497 | 119.6591 | 1.16098 
14 130.8847 | 139.5569 | 139.5652 | 1.35574 
WG 145.4443 | 156.8359 | 156.8438 | 1.52480 
16 15768626 | 172.5524 | 171.5599 | 1.66878 
1M; 168.1673 | 183.7522 | 183.7594 | 1.78814 
18 176.3823 | 193.4706 | 193.4776 | 1.88323 
19 182.5269 | 200.7355 | 200.7424 | 1.95431 
20 186.6154 | 205.5674 | 205.5742 | 2.00158 
21 188.6572 | 207.9795 | 207.9863 | 2.02518 
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Table 4D.9 


Large Cell Integral Parameters by Various Calqwlaticns 


Method Reference Disadvantage 
Factor 


Model F 
(6—5=10) 
Diffusion 
Theory 


Ps 
Pomraning 















Exact 
Models 
FS and FSC 
(6~ 5-10) 
Model FS 
(8-15=17) 








Thermal 
Vitals zak on 


0.8647 


0.8625 
0.8574 
0.8567 
0.8562 
0.8560 


0.8560 


0.85599 
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Table 4D.10 


Comparison of Solutions for Flat and Linearly Decreasing 


Source Distributions in the Moderator Region of the Large Half-Cell 


i Uniform Scurce 


Disadvantage 
Factor 524903 


Thermal 
Utilization 
Multiplication 


Linearly Decreasing Source 


































»8560 





159.94 





1 “lk fo) 1.48962 Tologe 
2 ote 0 opeec? 1.54717 
5 ol2 0 1.58973 1.61620 
4 012 0 1.69695 1.72598 
5 Bie 0 1.85454 ecouos 
6 2 0 209259 2213233 
(interface) --4---- +/--2- - Pm ee em = bm me = = 
7 03 03 | 13.4334 13.8740 
8 03 oo tonne 5 170A 
2 03 03 | 19.2918 US AOS, 
10 58) oo | 2ittoole BG AS 
il 03 03 | 24.2457 244347 
(pseudowinterface)- -- = -)- ee - eb e ee ee epee ee 
LZ 1.0 NSO | 97.0161 1.375 96.2209 
3 1.0 HeO) 119.6591. 1.275 | 115.8524 
14 1.0 WeO) | 139.5652 PL? | tod. 9ec0 
15 1.0 1.0 | 156.8438 1.075 | 144.8158 
ie | 1.0 LAS alae, 0975 | 154.8878 
m7 | 1.0 1.0 | 183.7594 0875 | 162.4710 | 
18 1.0 1.0 | 193.4776 2775 | 167.8880 
iy, 1.0 1.0 | 200.7424 0075 | 171.4549 
eae | 1.0 1.0 | 205.5742 2575 | 173.4835 
ZI. 1.0 1.0 | 209.9863 0475) 174.2688 


SUM: 11.500 


167 


4E, RESULTS OF ISOLATED REACTOR CALCULATIONS 





In this subsection we report the steady-state distributions 


computed by SLBCEL for a very large, three-section, isolated reactor. 


| The special version of Subroutine PARAM] for nonereflecting boundaries 


was used for these computations. The system studied is shown in 


Fig. (48.1). Runs were mde with Models F, FS and FSC for both N = 18 


and N = 36. Total job time was 0.94 minutes. 










ale HEI) III 
Multiplying Scattering Absorbing 
Section Section Section 


p= 18 mfp ~<- p = 6 mfp p = 24 mfp 
e¢ = 1,001 | C= 120 c= 0.95 
ee ee SN Se 28 


6 regions le 6 regions + 6 regions 


Ph) = 3.0 P(T) = 1.0 P(I) = 4.0 
s(I) =0 S(I) =1.0 S(I) = 


Ne= 36 


12 regions 12 regions 12 regions 

PCI) = 1.5 Rol) 10> P(I) = 230 

Sb) = (0) S(I) =0.5 SGD) See 
Figure 4E.1 Input Parameters for Three-Region Reactor 


The regions in this reactor are sufficiently large, considering 
the wide variation in the flux distribution, to illustrate the 
limitations of our models. The computed values of the miltiplication 
are given in Table 4E.1. The closeness of the Model FS am FSC results 


is somewhat surprising for such a large system, particularly in con- 
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Table 45.1 


Computed Values of the Multiplication 
in Large Isolated System 


Model F Model FS Model FSC 


18 Le REP as 210.7 210.9 
36 175.4 ZS Ve 219.4 


trast with the relatively large difference between the 18= and 36- 





region results. The computed flux distributions, given in Tables 

4E.2 and 4E.3, show that eighteen regions are inadequate for generating 
a correct flux distribution. The quadratic approximations for the 
parent birth rate distribution are incapable of fitting a distri- 
bution which decreases by two orders of magnitude across three regions 
in the absorbing section. By contrast, the 36-region flux distri- 
butions computed with Models FS and FSC decrease by only one order of 
magnitude across three regions and appear to be reasonably good 
solutions. Using the 36.region, Model FSC distribution as the basis 
for comparison, it is clear from Table 4E.3 that, in spite of the 
negative fluxes, the 18=region distributions computed with Models FS 
and FSC are superior to the 36-region distribution computed with 

Model F. 


The 36-region, Model FSC distribution is shown in Fig. (4E.2). 
An expanded view of the relative flux in the regions near the 
scatterer-absorber interface, as approximated by the superimposed 
modes of Model FSC, is shown in Fig. (4E.3). Note that the disconti- 
nity at the interface is relatively slight for such a wide variation 


in level over a few-region interval. 





Relative Mean Fluxes Computed for Large System with N = 36 


| Model F Model FS 


a eu 


I ¢(I) 
il 2017 
2 03798 
3 05550 
by 07275 
5 »8966 
6 1.0614 
7 ne 2212 
8 ee / 52 
9 M5227 
10 1.6631 
11 e957 
12 1.9206 
(interface)- 
13 2.0129 
14 2.0477 
a5 220558 
16 2.0401 
17 2.0013 
18 1.9396 
19 1.8549 
20 1.7473 
21 1.6164 
ge 1.4617 
23 1.3811 
2h 1.0661 
(interface)— 4 
25 26951 
at 2129 
28 sible: 
2g 20651 
30 ~0360 
SMe 00199 
32 20110 
SB 20060 
34 20033 
5B 20017 
36 -0007 


Table 4E.2 


Z 


01654 
0506 
20155 
00047 


0012 


@(T) 


o 1818 
03757 
o SOM 
» 7488 
09281 
a Oa: 
1.2668 
1.4238 
1.5713 
1.7082 
A815 GIS, 
1.9489 


Model FSC 


ae ee ee - ~~]; 2: ~~ 2 .- -  ; - )- - 
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Table 45.3 


Relative Mean Fluxes Computed for Large System with N = 18 












| Model Fo F | Model FS FS Model FSC 





Two-Region Two-Regiion 
N=18 Averages of N=18 N=18 Averages of 
Run N=36 Run Run Run N=36 Run 
iL 03239 ° ° ° 
2 06382 ° 
3 09451 
4 1.2411 
5 Menee7 
6 1.7868 
(interface) - 
7 1.9898 
8 2.0458 
9 1.9905 
10 ioe /5 
1 1.5562 
12 1.1681 
(interface) - 
3 » 5688 
14 02356 
15 20975 
16 0402 
7 20163 
iis} 00058 


Summary of Chapter 4 


In this chapter, an efficient steady-state code, SLBCEL, was 
developed in order to evaluate more thoroughly the worth of the flat 
approximation and the variable-distribution models, SLBCEL treats 
both half-cells with perfectly reflecting boundaries and isolated 


systems with non-reflecting boundaries, 





Lo 


In Section 4D, the models were tested on cell systems having 
widely varying dimensions, For all systems, computed integral para- 
_ meters agree closely with the best published results. For the very 
small cell having regions less than 0.016 mean free path thick, the 
flat approximation is satisfactory; the slope correction does not 
alter the results significatnly, and use of the murvature correction 
introduces errors due to lerge numerical errors in the coefficients 
G my \tod) For the 1.8 cm intermediate call having 0.155 mfp 
regions in the moderator section, Models FS and FSC yield nearly 
identical results;:the flat approximation is less satisfactory. 
For the large cell having regions 0.3 and 1.0 mfp thick in the 
moderator, the Model FSC result is only slightly better than the 
excellent Model FSH result; the flat approximation, on the other han, 
| is totally inadequate. Only in the very large system studied in 
Section 4E do we encounter upper limits on the applicability of the 


 variable-distribution models as regards permissible regions widths. 


For all of the larger systems, the curvature correction has 
little effect on the solution. This characteristic is consistent 
with the results reported in Chapter 3. Computing time and, more 
Significantly, storage requirements can be reduced by neglecting 


the curvature correction. 


It is clear that the use of the slope-correction adds greatly 
to the power of the finite-integral method. First, for a given 
problem, the required number of regions is considerably reduced, as 


can be seen from the comparison of Run 8 of Table 4D.3 and the 
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eleven-region run given in Table 4D.6. Computing time for a given 
model is proportional to Ns for a given N, Model FS computing time 
is less than twice that of Model F. Second, for a given maximm 
number of regions, owe method extends the usefulness of the integral 
approach to mich larger cells and isclated systems, Coupled with 
the non-iterative solution procedure, accurate solutions for such 


systems can be generated very efficiently. 


We recommend the use of Medel FS for half~cells and isolated 
systems which are greater than one mfp thick, For all such systems 
tested in this chapter, as well as in Chapter 3, a significant 


advantage over the flat approximation has been noted. 


The accuracy of the integral parameters reported in this chapter, 
coupled with the evidence of accurate cosine solutions for homogeneous 
line systems in Section 2E and the accurate results obtained for the 
Milne problem in Section 3F, gives cause for confidence in the 
reasonable accuracy of the computed B(I). This confidence is 
reinforced by several examples in which the closeness of distributions 
computed for different values of N indicates a high degree of conver~ 
gence towards the correct solution. From a set of integral regional 
birth rates B(I), for I in a particular homogeneous section of the 
systen, a smoothly-varying solution distribution may be obtained by 
approximating the distribution by a polynomial with unknown 
coefficients and using the B(I) to determine the values of the 
coefficients. With accurate B(I), the polynomial solution cannot be 


very far from the correct solution of the transport equation, as the 


nhs: 
integral of the polynomial over each region in the homogeneous section 
will be accurate. Recall that the technique just described was used 


successfully for the Milne problem in Section 3F. 


Extension of the SLECEL methodology to treat systems of repeated, 
-nonesymmetric cells is faftifly simple. In this case, particles leaving 
the cell across the right cell-broundary in Fig. (4A.1) are replaced 
by particles entering the cell across the left boundary. The two 
formulas (4A.2 and 3) forAP, are replaced by one simple formulas 


N 


AP, =) PL) . (48.1) 
L=l 
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CHAPTER 5 


SUMMARY 


5A. REVIEW 


In this thesis we have developed, tested and evaluated numerical 
models for solving the (x,t)-dependent integral transport equations 
for line and slab geometries, Eqs. (1A.1) and (14.3) respectively. 
The methodology used to formulate these models was outlined in 


Chapter 1. 


In Chapter 2, we developed and tested a number of models for 
Eq. (14.3), the integral-transport equation for line geometry. 
We found that, for a given degree of accuracy, the slope-correction 
model requires only a fraction of the regions needed with the fixed- 
distribution models for systems with relatively smooth flux distri- 
butions, and is in most cases more efficient with respect to come 
puting time. The discrete-delay-time approximation proved to be 
quite satisfactory in the line models; this makes possible the 
computation of accurate, fast space-time transients, subject only 
to slight restrictions on external source localization and rates 
of property changes. The results presented in Chapter 2 demonstrate 
that the finite~integral method is an effective tool for space-time 
studies. The method is best suited for space-time transients of 


short duration in relatively smli systems, 


In Chapter 3, the flat approximation and slope-correction 
models developed for line geometry were extended to treat slab 


geometry. A curvature-correction mode was added to the formation. 
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Tests made to calculate critical thicknesses and to solve the Milne 
problem yielded results which compare quite well with the best published 
data. Studies of asymptotic solutions generated by the slab models 
indicate that errors due to the discrete-delay-time approximation 

and to the neglect of growth rate informlating the models are very 
small for problems in which |A(J,t°)| /[ve] < 0.02, where A(J,t") = 
B(J,t")/B(J,t*), t'< t and 1< J<N, For systems in which the 
\A(J,t*)|/[ve] are very large, on the other hand, the discrete-delay- 
time approximation is inadequate for coupling the unbounded slab 
regions. We have shown how our models can be extended to a mi1tiple~ 
delay-time formulation which will yield more accurate results for 


(x,t)-dependent problems in such systems. 


In Chapter 4, we extended the "bare" slab formation to treat 
infinite systems of repeated, symmetric unit cells. An efficient 
program, SLECEL, was developed which can compute very accurate flux 
distributions over the entire range of cell sizes of interest. In the 
results obtained with SLBCEL, the value of the slope=correction model 
is clearly demonstrated, The curvature correction, on the other hand, 


does not significantly improve the accuracy. 


5B. RECOMMENDATIONS FOR FURTHER WORK 





5B.1 Improvement of Slab Formation for Time-dependent Problems 
In any further work with the time-dependent slab models, we 
recommend that the curvature correction be dropped from the formulation 


and greater attention be given to accounting for the time dependence 
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of the parent birth rate distribution. To this end, the mltiple 
delay=time model, minus the curvature correction, should be helpful. 
In addition, the application of a slope-correction for the time 
dependence in computing C,(J,t-7) should yield a considerably 


improved model. 
5Boe Mxtension to Multidimensions] Geometiics 


A more interesting problem involves the development of finite. 
integral models for systems which are finite in two or three 
dimensions. With Models F and FS, the transfer parameters are given 
by double integrals in the line system and by triple integrals in the 
slabs; in a two-dimensional plane system, however, the transfer para- 
meters are given by quadruple integrals. The expressions are even 


more complex for three-dimensional systems. 


Consider the two-dimensional plane system. From the analysis of 
time-dependent results for the rod and the slab, the discrete-delay- 
time approximation should be satisfactory for space-time transients 
provided that the regions are bounded and have a fairly vegular 
shape. The use of regular shapes, i.e., squares or hexagons, will 
also simplfy the computation of transfer coefficients by minimizing 
the required number of formias. The distribution of parent births 
in a source region J must be specified; as in the line system, the 
distribution may be approximated in several ways. The analogy with 
the line models is fairly obvious, and we would expect that the 
same characteristics found for the line models would apply for 


analogous ‘mltidimension2al models. With Model M, for example, 
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we treated all parent births as if they occured at the center of 
region J; we found that particles tend to be trapped in region J, 
increasingly so as the optical distance from the center to the 
edge increases, With the flat approximation, we found both by 
analysis and from numerical results that the computed distributions 
tend to be flatter than the true solutions. Limitations on region 
sizes for a particular approximtion in the imitidimensional 
geometry are expected to be quite similar to those found for the 
line systems. A procedure for incorporating a slope correction, 
for use with square-shaped regions, is to superimpose two slope 
correction modes to account for gradients with respect to 


coordinates x and y. 


Once the birth distribution or unit modal distribution is 
specified for region J, the number of neutrons colliding in region I 
must be computed. Since the multiple integrals are very complex, a 
type of numerical integration is recommended. Dividing regions J 
and I into a number of very small subregions, a simple model, 
such as that analogous to line Model I, can be used to compute 
the subregion-to-subregion transfer. For a given source subregion 
in J, the total deposition in I is computed by simple addition over 
the subregions of I. The J—>I transfer coefficient my then be 
computed by woighting the transfers from the various subregions of J 
with the unit modal distribution and adding. An alternative proce- 
dure, which may be more efficient, involves the use of miti- 
dimensional integration formulas, such as those given in the “Handbook 


of Mathematical Functions. "1° 
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5Be3 Extension to Multispeed Systems 


Analogies may also be drawn between the line models and three 


possible approaches for treating energy space. 


First, by analogy with Models I and M, the neutrons born in 
each of Q energy groups are assigned a particular average speed 
and, for each spatial region, a particular collision cross-section. 
Group~to-group transfer parameters are also specified. The system 
then consists of Q monoenergetic systems coupled by collision events. 
Extension of the monoenergetic programs is fairly trivial for this 
case, since the monoenergetic expressions for the delay times and 
spatial transfer coefficients apply for the neutrons in a particular 


parent group. 


Second, by analogy with Model F, a fixed, continuous energy 
distribution is assumed for the neutrons born in a particular group 
and region. By analogy with the numerical integration procedure pro- 
posed for mitidimensional systems, spatial transfer coefficients 
and delay times are computed for a representative number of discrete 
energies in the group according to the speeds and cross sections at 
those energies. By appropriately weighting these parameters with 
the assumed distribution and adding, one may obtain the space-time 


transfer parameters for the group. 


Third, because the energy-transfer distribution functions are 
fairly smooth for most types of neutron-target interactions, the 
energy dependence of the birth rate will be smoother than that of the 


collision rate in a finite system in which the collision cross 
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section, and therefore the leakage probability, varies within an 
energy group. This suggests that superposition of flat and variable 
slope-correction modes for the energy dependence of the birth rate 
in a particular group and region may be feasible. An analogy may be 


drawn with line Model FS. 





A TTS be ah $d 


AFFENDLX A 


THE PROGRAM OVRR4 (LINE GEOMMTRY) 


The program OVRR4 is written in FORTRAN IT language for the IBM- 
7094 compter. Six subroutines are required for the pregrams SOURCE, 
TDEP, FREAD, RCNIRL, FARAMA and CAIC4, The functions of each sub. 
routine are described by commsnt statements in the listings. The short 
MAIN program and the six subroutines cecupy 5021 (decimal) core 


locations. COMMON storage eccupies 16139 iecations. 


An input form is given in Sestion Al. The input variables are 
defined in Section Az; the output variables are defined in Section A3. 
The program cutput for a simple example probiem is given in Section A‘. 


Finally, the FORTRAN listings are given in Section A5. 





Al. OVRR4 INPUT FORM 


Notes? 


Card 
No. 


0 


oO gi Bee aw Fe FWD KF 


a2 


(a) Input data cards should be arranged in the order shown. 
(b) Numbered cards are mandatory for each problems; inclusion 
of alphabetically designated sets of cards is conditional. 
(c) FORTRAN II format is given in the brackets. 
Condition Variables to be Read Format 
—_ NPROB (T5] 
For each problem to be solved, read the followings: 

A Noes he NT »NSTP,MHOM, MODC »NMEM, NCOT ,NSRC [9r5] 

we MODR, MITN,NDET,LIS , JSC,KPARA, KPARB,NSP,NSPD [915] 

= KSRC ,MLIM, KTSS , KTDEP , KXXA, KXXB, KXXC,KXXD,KXXE [915] 

— WD,SPD, CONV, EIGA,TSRC,TMITN (6E12.5] 
MHOM=1  SIGD(1),C(1) [2812.5] 
MHOM=2  (SIGD(I),C(I) ,I=1,N) [6E12.5] 
NDEPO  (LID(ID),ID=1,NDET) [315] 
MODR=2  SIGDM (E12.5] 
NMEM=2,3 (B(I,1),I=1,N) [6E12.5] 
NSRC=1,2, (S(I) ,I=1,N) [6£12. 5] 
NTYP=1, Add new set of cards 1 through F 
Ni 1 for each additional run. 

NTYP=3  (KEXA(I) ,I=1,NT) [1415] 
NTYP=+, Add the following cards for each 
NT>1 additional pass? 
TMITN (H12.5] 
(SIGD(I) ,c(I) ,I=1,N) [6£12.5] 





A2. DESCRIPTION OF OVRR4 INPUT VARIABLES 


Notes3 


(a) Assignable values are enclosed in brackets. Where 


different values alter the program logic, the meanings 


are defined. 


(b) The variables are arranged in the order in which they are 


read into the program, 


INTEGERS 


NPROB = No. of independent problems to be solved [= 1] 


NTYP = Problem Type (See Subroutine RCNTRL). 
4 - General Problem. NT Runs with same PARAM+-computed 


N 
NT 
NSTP 


MHOM 


MODC 


2 


properties. 

Homogeneous reactor. Computations for NT different values 
ot Ne 

Initial localized source problem. NT successive runs with 
source in different regions. 

Time=dependent properties which are read in at time of 
each change. NT sets of properties. 

Time-dependent properties controlled or computed by 
user-jwritten subroutine TDEP. 

TDEP called NT times. 


= No. of subregions [4 =N = 30] 


= No. of successive runs or passes as described under NTYP. [= 1] 


= Increase in N for each successive run of NIYP = 2 Problem, 
fe 1, 4 NIP = 2] 


For homogeneous reactor. ; 


For homogeneous reactoro 


Model F (Flat approximation) 
Model FS (Slope correction) 








OVRR4 INPUT VARIABLES (cont'd) 


NMEM = Control variable for setting the LIM time steps of initial 
Memory e 

1 ~ Sets B(I,K) =1.0, I =1, N3 K =1, LIM. 

2— Meads in B(I,1), I =1; N; Sets B(I,K) = B(Z,1), I =1, 
Ns K = 2, LIM. 

3 = Reads in B(I,1), I =1, Ns; Sets B(I,K) in accordance with 

inverse period EIGA for I =i1, N; K =2, LIM. 

4 - Sets B(I,K) = 10°”, I=1, Ns; kK =1, LIM. 






i 


NCOT = Control variable for asymptoticity testing and transient print 
out. 
1 - Tests for asymptoticity at each time step. Does not 
print transient results, 
2 = No asymptoticity convergence test. Prints transient 
results with a spacing of NSP time steps. 
3 - Both tests for asymptoticity and prints transient. 


tee ee EE ee ae ee ee ee 


NSRC = Source rate control variable. 
1 = Reads in S(I), I =1, N; source constant in time. 
2 = Reads in S(I), I = 1, Ns source lasts JSC time steps. 
be- Sots S(1) = 0, I = 1, Ne 
4, » Calis user written subroutine SOURCE at each time step. 
MODR =]1 = One pass into subroutine CALC4 for a given problem or 
rune 
2-=- NT passes through CALC4 for same problem or run, where 
property changes are made before each pass, Run 
continues with new properties, Always use this value 
with NIYP = 4 or 5. 
MITN = Maximum number of time steps [= 1]. For NIYP =4 or 5, 


MITN = TMITN/unit time step. 


NDET = No. of detectors [O < NDET = 3]. 
Detectors located in regions LID(ID), ID=1,3. 
NDET => 0 causes printout of S(LIS) and detector responses, 


with a spacing of NSPD time steps. 





OVRR4 INPUT VARIABLES (cont °d) 


LIS = Region for which source rate S(LIS) is to be printed out if 
MWDET> 0. [1= LIS =N, if NDET = 0]. 


JSC = Duration in time steps of initial source distribution, 
[Oo = JSC, if NSRC = 2]. If JSC =0, JSC is set equal to 
TSRC/unit time step. 


KPARA = Print control variable in subroutine PARAM4, 
oa Prints calculated parameters, 


2 = Does not print. 


KPARB = Print control variable in PARAM4, 
1 = Prints array G(I,J). 
2 «= Does not print. 


NSP = Time step spacing in transient print out. [—1, if NCOT = 2,3] 


NSPD = Time step spacing in detector response print out, 
il, if NDET > 0] 


KSRC = (Dummy, not used in listed program). [any] 


MLIM = Control variable for LIM, the number of memory time steps 
O = LIM computed by program. 
=O = LIM is set equal to MLIM. Useful to reduce computation 
time in large reactors, Sometimes needed to get suitably 
large LIM when MODR = 2, 
KTSS = |1 = Timeedependent problem. 
<= Steady state or generation-to-generation problem, 
KTDEP 


i 
es =). 
5 


Subroutine TDEP not called from CALC4. 
« TDEP called from CALC4 at each time step if KTSS = 1. 


KXXA, KXXB, KXXC, KXXD, KXXE = Dummy variables included in READ 
statement and Program COMMON for user convenience in selective 


reprogramming. [any ]| 








OVRR4 INPUT VARIABLES (cont'd) 


FLOATING POINT VARIABLES 


WD = Reactor length, cm. 
_ SPD = Particle speed, cm./sec. 
— CONV = Asymptoticity convergence criterion. 
 —EIGA = Inverse period, sec’. , for setting initial memory if 
NMEM = 3, 
TSRC = Duration in seconds of the initial source distribution if 


NSRC = 2, (See JSC) 


TMITN = Time in seconds, after start of problem, until which the 
current set of properties are to apply, if NIYP =4 or 5. 
(See MITN) 


SIGDM = Maximum collision crossesection expected in a problem with 
time dependent properties, if MODR = 2. Fixes a unit time 
step which remains constant and is less than or equal to 
every expected time delay t(I,J). 


ARRAYS 





SIGD(I) = Collision cross section, om”, in region I. 
BL) = Mean number of secondaries per collision in region I. 
LID(ID) = Region in which detector No. ID is located. 


B(I,1) = Birth rate in region I to be used in setting up the initial 
memory. (Note that B(I,K) in this program does not include 


external source rates. These are stored in B(I,K+200)). 
S(T) = Source rate in nodal region I. 


KEXA(L) = Region for initial source in run L of an NIYP = 3 problem, 





cen ———_a 


A3. DESCRIPTION OF OVRR4 OUTPUT VARIABLES 


Notes Variables listed in order of appearance. Those described in 


the previous section are not included here, 
SIGP(I) = Production cross-section, ens, in region I, 
Printed if KPARA = 1¢ 
DLTX = Length of subregion, ce 
TS = Unit time step, sec. 


TSMALL = Distance particle travels during unit time step, units of 


DLTX. 
LIM = No. of time stsps reserved for memory. 
(I) =: Noneattenuation factor for particles crossing region I. 
FLT(I) = No. of particles born in region I per unit flat mode which 
escape region I in each direction 
SLP(I) = No. of particles born in region I per unit slope-correction 


mode which escape region I in the direction of inereasing 
birth rate, 


TOUT(I) = Mean distance travelled in region I, in units ef DLTX, by 
those particles from a uniformly distributed source in 


region I thst escape from region I. 


GI(I) = Factor proportional to the fraction of particles born in 


region I which collide in region I. 


Printed if KPARA = 1 and KPARB = 1: 


G(I,J) for J >I = Fraction surviving flight path across 


regions between I and J. 
G(I,J) for J =~ I = Mean number of time steps delay, 7) (1,9); between 
births in region J (or I) and collisions in region I 


(or J). 





OVRR4 OUTPUT VARIABLES (cont'd) 


| Printed if NCOT = 1 or 3. 


| NCN = |] -= asymptotic solution, 
2 = Solution not asymptotic. CONV not satisfied, 


— CONVB = Level of asymptoticity convergence attained. 
NSC = Number of time steps or iterations completed. 
EIGB = Inverse period, sec”, of the asymptotic solution. 


BIRTH RATE = Normalized asymptotic birth rate, including the external 


source rate, in region I 


FLUX = Normalized flux distribution in region I 


Printed if NCOT = 2 or 3 

B(I,K) = Progeny birth rate in region I at time step K, excluding 
contributions from external sources. The values for 
I = N+l, N+2, N+3 are the ratios Ry (K), R(K) and R(K) 
of equations (2E.2). 





Au, EXAMPLE OF PRINTED OUTPUT FROM OVRR4 


OVRRY PROBLEM 1 RUN 1 PASS 1 PAGE 1 
INITIAL INPUT DATA 

NTYP = 1 N = 6 NT = 1 NSTP = MHOM =: 2 
MODC = 2 NMEM = 4 NCOT =3 NSRC = 2 MOR =i 
MITN = 200 NDET = 3 LIS = 2 JSC = 10 KPARA = 1 
KPARB = 1 NSP = 10 NSPD = KSRC = 0 MLIM = 0 
KTSS = 1 KTDEP = 1 NGO'IN 10 Oeae— oe 

Fax. = O KXXD = 0 KXXE = 0 

WD = .5Q000E 01 CENTIMETERS. SPD = .20000E 06 CM. /SEC. 
CONV = 1.00000E-06 EIGA = .OOOOOE 00 INVERSE SEC. 
TSRC = .OOO00E 00 SECONDS. TMITN = .OO000E 00 SECONDS. 
RGN. B(I,1) S(I) SIGD(I) 6) SIGP(I) 

1 .00000E 00 .00000E 00 1.000000 1.400000 1.400000 

2  .00000E 00 .10000E 01 1.000000 1.400000 1.400000 

3. .00000F 00 .Q00000E 00 1.000000 1.400000 1.400000 

4 = ,QQ000E 00 «=«.00000E 00 ~=——«i 500000 =——s(«w 900000 ~—s—#F 50000 

5 .Q0000E 00 .00000E 00 ~~. 500000 2900000 4450000 

6  .00000E CO .00000E 00 8 .500000 .900000 ~ .450000 





EXAMPLE PROBLEM (cont'd 


TSMALL 


RGN SIGD(I) 


u 


2 
3 
4 
Z 
6 


Orn &©F WW YD FF 


OVRR4+ PROB. TYPE 1 


RUN NUMBER 1 


PASS NUMBER 1 


PAGE 2 


CALCULATED INPUT PARAMETERS FOLIOW. 


N = 6 
DLTX = .8333333E 00 


SIGDM = .QOOO00E 00 


li 


C(I) 


e 500000 
o HO0000 
o 500000 


» 900000 
e JO0000 
e 900000 


OVRR4 PROB. TYPE 1 


02897 528E OO UNITS OF DLTX. 


SIGP(I) 

1.000000 1.400000 1.400000 
1.000000 1.400000 1.400000 
1.000000 1.400000 1.400000 
»450000 
» 450000 
04450000 


MITN = 


(I) 
034598 
034598 
0434598 
0659241 
» 659241 
06 59241 


GI(T) 


» 568654 
0 534622 
534622 
0 534622 


RUN NUMBER 1 


MATRIX G(I,J) FOLLOWS. 


1.0000000 
eal 297 
6.4285575 
9 (2250 

134484435 

16.8996613 


1.0000000 
1.0000000 
269773397 
66 5460079 
929972258 
13 4434435 


MATRIX ELEMENTS 


» 18887 56 
0 4345982 
1.0000000 
1.0728039 
362122405 
66634583 


04345982 
1.0000000 
10000000 
300947901 
6. 5460079 
929972258 


LIM = 
JSC = 10 


0 568654 
2 508654 » 
0339241 


0408911 


PASS NUMBER 1 


200 
o L207303E-05 
20 


TS = 


FLT (T) 
339241 
339241 


SLP(I) TOUT(I) 
0011645 2431346 
0011645 .431346 
0011645 .4313 46 
°007079 2465378 
2007079 465378 
°007079 2465378 


408911 


408911 


PAGE 3 


ol 245145 
0286 5048 
» 6592406 
1.0000000 
1.0728039 
32122405 


008208 50 
18887 56 
04345982 
06592406 
1.0000000 
1.0728039 





EXAMPLE PROBLEM (cont'd) 


OVRR4 PROBLEM 1 


TRANSIENT RESULTS 


Time 
Step 
Region 


O09 ON AW EWN EF 


Time 
Step 
Region 


OO ON AWN FW NE 


1O 


@9490277E 00 
o 1489863 OL 
o9662511E 00 
2 1776079E 00 
2 1062234E-01 


= 0132333 5E=03 


0 LO90249E O1 
oLlLOSH81E O1 
olLO5S481E OL 


60 


e 5S800014E 00 
07530713E 00 
07183094E 00 
»1832766E 00 
0 1465356E 00 
»1095810E 00 
oIOSHH6IE 00 
099556148 00 
29955614E 00 


OVRR4 PROBLEM 1 


TRANSIENT RESULTS 


Time 
Step 
Region 


OO ONAN FW N-H 


110 


239203 54E 00 
» 5091019E 00 
eB 5H555E 00 
o1240336E 00 
0 9884628E--01 
741910701 
09922450E 00 
0 9922443E 00 
09922443E 00 


RUN 1 


PASS 1 


B(I,NSC) = BIRTH RATE ~ 


20 


0€739997E O00 
»9626003E 00 
olLO734L1E 21 
0228 5542ER VO 
0 2665763E 00 
o1437537E 00 
°1006063E O1 
olO1L428E O1 
olOL1428E OL 


70 


0 5305613E 00 
~6960864E 00 
o0644356E 00 
o1696509E 00 
01352425E 00 
~1014863E 00 
09910203E 00 
29909657E 00 
© 99096 57E 00 


RUN 1 


30 


26908735 00 
»9679487E 00 
08755/780E 00 
»2480716E 00 
01773733E 00 
»1.579833E 00 
097070Z1E 00 
o9718456E 00 
o9718456E 00 


80 


04955838E 00 
O43 524R 00 
06136771E 00 
01569928E 00 
o1249368E 00 
© 939283'7E=01 
09925177E 00 
09925387E 00 
0 9925387E 00 


PASS 1 


B(I,NSC) = BIRTH RATE - 


Ae) 


o3624606E 00 
04/707882E 00 
oA488 321 00 
oi 147058E 00 
e 91 38217E-O1 
»6861671E-01 
09921673E 00 
09921672E 00 
0 9921672E 00 


130 


03351622E 00 
04353026E 00 
o4150292E 00 
2 1060570E 00 
2 0450283FO1L 
OSL R@O1 
09922123E 00 
09922125E 00 
09922125E 00 
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EXTERNAL SOURCE. 


NO 


~6901077E 00 
°©8706196E 00 
08509327E 00 
»2094180E 00 
0 L745H03E 00 
0 1239979E 00 
> 1008692E 01 
0 LOO07472E O1 
¢ L007472E O1 


90 


ot 586511 00 
0 5953029E 00 
0 5679K445E 00 
o1450281E 00 
oll 56511E 00 
¢ 867 3827E-01 
09921773E 00 
o99Z1696E 00 
o992Z1696E 00 
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0 


26256174E 00 
08177185E 00 
07 HO931E 00 
2 1999343E 00 
o1565949E 00 
01197438E 00 
o 984 5H00E 00 
o 984 5984E 00 
o9845984E 00 


100 


042387 53E 00 
05 507134E 00 
o 5248811E 00 
o1341858E 00 
»1068586E 00 
»8027630E=01 
29921458E 00 
o992Z1H84E 00 
o99Z1484E 00 


EXTERNAL SOURCE. 


140 


© 3099069 O00 
04025073 00 
0 3837550E 00 
o 9806781E-01 
0 7813429E-01 
© 586627 3E-01 
0992Z1905E 00 
o9921903E 00 
0 9921903E 00 


150 


»2865566E 00 
»3721806E 00 
3 548411E 00 
,9067863E-O1 
» 722N7N SE O11 
, 54242 53R-01 
»9921995E 00 
.9921996E 00 
59921996E 00 








EXAMPLE PROBLEM (cont'd) 


OO ON AWN FWD 


OVRR+ PROBLEM 21 RUN 1 PASS 1 PAGE 6 
CONVERGENCE RESULTS 
NCOT = 3 NCN = 1 NSC = 158 


CONVB = ,72270632E-06 


EIGB = =,.64870129E 04 


ASYMPTOTIC DISTRIBUTIONS 


REG. NO. BIRTH RATE FLUX 
1 1. 39699146 1.01783647 
2 1. 81440863 1. 32196318 
S 1672988527 1.2603801L5 
a 044206 504 1.00204204 
, 3 5comeol 0798373LL 
6 » 26443609 o 59GH0519 
OVRR 4 PROBLEM1 RUN 1 PASS 1 PAGE 7 
CONVERGENCE RESULTS 
RESULTS OF LAST FTVE TIME STEPS 


o2777171E 00 
0 3606992E 00 
0 3438952E 00 
o8788142E-01 
o7001868E-01 
o 5256932E=01 
oJ9ZL9H8E 00 
o99ZI9HSE 00 
oDZLGXNSE 00 


27 55496E 00 
0 35788353E 00 
o 3412112E 00 
08719 58 5h=01 
90947 218E-01 
¢ 521 5927E-01 
09921953E 00 
09921953E 00 
09921953E 00 


027 33995E O00 
©3550927E 00 
©3385488E 00 
98651 542R-01 
689301 5E~01 
» 517 5222E=01 
~99ZL971E 00 


992Z1L971E 00 


09921971 E 00 


o27L2Z666E 00 
03 52321L5E 00 
0 3359076E 00 
oO 50401 5E-01 
06839Z248E-01 
» 5134822201 
09921985E 00 
0 9921986E 00 
»©9921986E 00 


o2691504E 00 
0 3495718E 00 
0 3332872E 00 
0851701 6E-01 
00785899E=01 
o 509474HOE~O1 
0992Z1988E 00 
o9921988E 00 
©9921988E 00 





EXAMPLE PROBLEM (cont'd 


LOCATION 
TIME STEP 


52 
50 


OVRR4 PROBLEM 1 


RUN 1 


PASS 1 


DETECTOR RESPONSE RESULTS 


SOURCE 
z 


e LOOOOOOOE 
» LOOOOOOOE 
o OOOO0O000E 
o OOOOO0000E; 
» OOOOO0000E 
o OOOOOQ000E 
» OO000000F: 
e OOOO000CE 
»e OOOO0000E 
e OCOO00000E 
e QO00Q00000E 
o OOO00000E 
e OOO00000E 
o 00000000 
e OO000000E 
e OOOOO000E 
e O0O0O00000E 
e OOO00000E 
e QOOQ00000E 
oe QOO00000E: 
e OOO00000E 
oe OOOOQ0000E 
o O0O0Q00000E 
«e OOOO0000E 
o OOOO00000E 
e QQO00000E 
oe QOO00000E 
« OOO00000E 
e OOOO00000ER 
e QOO00000E 
e QOOQ00000E 
»OQ0000000E 
e D000000E 
o 00000000 
e QO000000E 
e OCOOQO0000E 
» O000CO00E 
e OOOOQ000E 
e QOO00000E 


01 
Ol 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
OO 
00 
OO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
O00 
00 
00 
00 
00 


DETECTOR 
a 


019572037E 
> 5SS420481E 
> S4884194E 
> 58167 829E 
© 62785693E 
> 51331267E 
» 529926 56E 
o 50297674E 
049235677E 
049293405E 
oH64H2316E 
»46001838E 
044387688 5E 
04284387 0E 
o414286718 
»40087601E 
» 389727448 
0 37651087E 
» 30 5840 AE 
0 35398841E 
o 34331395E 
0 33269590E 
6 3223411 9E 
» 312 52598E 
> 30276809E 
0293 511458 
> 284441099E 
027 56 5H00E 
5207162775 
» 2 5890040E 
025092700E 
0 24317 537E 
6 23568108E 
» 22840713E 
022136211E 
o 214 53414E 
°20791485E 
»20150237E 
219528538E 


1 


00 
00 
00 
00 
00 
OO 
00 
00 
OO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
0.8) 
00 


DETECTOR 
D 


0 19572037E 
o 595413648 
»89684200E 
06708692 5E 
2 76672231E 
-63798831E 
»07068320E 
06373142 5E 
061290647E 
»607 80910E 
° 57382783E 
» 569178 58E 
» 431 58348 
0 53042 549ER 
>» 51307812E 
249641993E 
04826 5921E 
046622930E 
»45301386E 
o43834078E 
0425117 10E 
041197893E 
o 3991494OE 
>38700087E 
» 37491 510E 
» 36345339E 
0 3521 S464E 
o 34134001E 
» 33081416E 
2 32059433E 
9 31072137E 
» 30112238E 
© 29184229E 
»28283507E 
o2741L1117E 
» 26 56 5623E 
0257459 55E 
» 249 51904E 
> 24182058E 


PAGE 8 


a 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
Q0 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
COQ 
ele) 
00 
00 
00 
00 
00 
OO 
00 
00 
OO 
00 
00 
00 
OO 
00 
00 
00 


NDET = 3 


DETECTOR 3 


D 


»76003810E-25 


»24293809E 
» 37480 523E 
o 59239183E 
0428493 59E 
458216 5E 
»o40998826E 
2 38347941E 
» 38786743E 
» 35901010E 
2» 36116089E 
>» 34346013E 
© 3359280 5E 
0 32503477E 
© 31397025E 
» 30616978E 
229 0617 2E 
°28707210E 
277637 30E 
» 20924-586E 
»26101890E 
02527838 5E 
o 24517967E 
0 23746 348E 
0230233 6E 
22007 375 
»21621280E 
020955595E 
> 20307 149E 
o 19682 597E 
»19074048E 
9 LRYUB6L30F 
~17915860E 
» 17363176E 
> 16827722E 
- 16308409E 
> L5805503E 
o15317811E 


=» 21580986E~02 


00 
00 
00 
00 
00 
00 
00 
00 
OO 
00 
00 
00 
00 
00 
00 
00 
O00 
00 
00 
00 
00 
00 
00 
OO 
00 
00 
00 
00 
00 
OO 
0 
00 
00 
00 
00 
00 
00 





% LIST8 
% EAE L 
COVRR4 
DMENSTON SIGD(30)sSI1GP(30) »LID(3)5B(339400) +S(30) » 
TGresos 809% C CSO FG T30 ) VE (30) » TOUT (3097, FLT(30) » 
2SLP(30)9D(392200) sNITS( 200) sSRCI (200) »NXX(200) »sBEQ(30) » 
2FLX(30) »KEXA(30) 9EXB(30) xEXC( 200) sEXD(200} 
COMMON NTYPoNsNT sNSTP »MHOM sMODC sNMEM sg NCOT sNSRC 9 
}MODR sMI TNoNDET sLISsJSC s9KPARAs KPARBsNSPsNSPD 9 
2K SRC sMLIMsKTSS eK TDEP 9KXXAKXXB so KXXC 9K XXD 9 KXXE 9 
3MA sNPAGs INDXs IPASS sNSCsNSD sLIMsKFL »sSIGDMs 
4WDsSPDsCONVsEIGAsTSRCeTMITNsEIGB»sQUANsTSsDLTXs 
SSIGDsSIGPsLIDsBsSeGsCsGI 9Ex TOUT sFLTsStLPsDesNTSsSRCI 5 
6BNXX »sBEQsFLX sKEXA sEXB9 EXC 9EXD 
1 FORMAT(15) 
READ 1sNPROB 
SecA Lt RREAD 
eee, ROWTRL 
NPROB=NPROB-1 
IF (NPROB) 1003100950 
mMOOSCALL EXIT 


END 
% Biol 8 
% efeet 
SesROUTTNE TDEP 
< 
C DUMMY SUBROUTINE = TIME=DEPENDENT PROPERTIES. 
ce 
RETURN 
END 
* ero) 8 
* LABEL 
SUBROWTINE SOURCE 
q 
4g DUMMY SUBROUTINE -- TIME DEPENDENT SOURCES. 
a 
RETURN 


END 


anal 
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* OK 


VONOVON 


L1Saes 
LABEL 
SUBROUTINE RREAD 


SUBROUTINE READS IN AND PRINTS OUT INPUT DATA FOR 
A PARTICULAR PROBLEM. 


DIMENSION SIGD(30) sSIGP(30)sLID(3)3B(339400)55S(30) > 
16130330) 3C(30) »G1 (30) sE(30)sTOUT(30)sFLT(30)>5 
2SLP(30) 90(39200) sNITS(200) sSRCI (200) »NXX(200) »BEQ( 30) s 
Beier ) 9K EXA 30) 3EXB (30) »EXC( 200) »~-EXD(200) 

COMMON NTYPsNoeNTeoNSTPsMHOM »MODC sNMEM yg NCOT sNSRC 9 
IMODR »sMITNoNDET sLISsJSC sKPARAs KPARB sNSPoNSPD 9 
PKSRC»oMLIMsKTSSsKTDEP s9KXKAsKXXBsKXXC 9K XXD dS KXXE 9 
3MA sNPAG2 INDXs IPASSsNSCsNSDsLIMsKFLsSIGDMs 
4LWD»sSPDsCONVsZIGAsTSRCsIMITNsEIGBsQUANsTSsDLTXs 
ESIGD»sSIGP»LIDsBsSeGsCoGI[ x9EsTOUTs FLT »SLPsDoNTSoSRCI 5 
6BNXXsBEQsFLXsKEXAsEXBsEXC 9 EXD 

FORMAT (9I5) 

PORMAT(G6GE12¢5) 

SORMAT(2E1 2695) 

FORMAT (315) 

FORMAT(C1H1s5X6H OVRR45s3X8H PROBLEM [35% 
13X4H RUN 1393X5H PASS 1395X5H PAGE I[4) 

8 FORMAT(1H0920X%919H INITIAL INPUT DATA/) 

9 FORMAT(1HO94X7H NTYP =1397X4H N =1396X5H NI =139 

14X7H NSTP =1394X7H MHOM =I13//5X7H MODC =13s9 
24X7H NMEM =13394X7H NCOT =1324X7H NSRC =139 
24X7H MODR =I13//5X7H MITN =1592X7H NDET =135 
45X6H LIS =1395X6H JSC =1593X8H KPARA =13// 
54X8H KPARB =1395X6H NSP =1493X7H NSPD =I14s 
52X7H KSRC =1493X7H MLIM =I14//5X7H KISS =14s 
72XB8H KIDEP =1493X7H KXXA =1493X7H KXXKB =I14// 
RS5X7H KXXC =1493X7H KXXD =1493X7H KXXF =I4) 
MmommeORMAT{(IHO»s5X5H WD =E12.5913H CENTIMETERSes 
Poreeepriee 1 GA =EFE1265313H INVERSE SEC.//5X7H TSRC =E12-5>9 
Pe SEGONDS.»7X8H TMITN =£€1225:39H SECONE 5e) 
11 FORMAT(1HOs4HRGNe s4X7H BlI91)97X5H S(1)9S5X8H SIGD(I)» 
eres C#l) e2X8HeSIGP(I)) 
12 FORMAT (1492X%92F13465593F10¢6) 
meer ORMAT( E12 650 
MA=1 
NPAG=1 
INOX=1] 
BPA SS=] 

EAD LeNTYPoNoNT os ISTP »MHOM sMODC sNMEMsNCOT sNSRC 9 
IMODR »sMITNoeNDET sLIvesJSCsKPARA s KPARBeNSP»sNSPD 9 
PKSRC sMLIMsKTSS sKTDEP 9KXXA sKXXB 9 KAXC 9K XXD 9K XXE 

READ 29WDsSPDsCONVsEIGAs!SRCsTMIIN 
QUAN=N 
GO TO (1019102) »sMHOM 


Jon DP Ee 


HOMOGENEOUS REACTOR 
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YALA OVC ONO) AYVAT MAY 


ary ¥ 


MO 


mo? READ SaeePrGD(2)5C (1) 
DO 29 [=2sN 
SlGh 1) )j=S ted) ) 

BO C Cmree( I) 
GO TO 106 


INHOMOGENEOUS REACTOR. 


mee READ 2s(SI16D(1)eC(1I)sI=19N) 
106 DO 107 T=l15N 
107 SIGP(T)=C(I)*SIGD(T) 

mF (NDET) 17091103104 


DETECTOR LOCATIONS WHEN DETECTORS ARE USED. 


104 READ Ss(LID(ID)sID=1sNDET) 
110 GO TO (60350)sMODR 


PeArTMUM COMLESION CROSS SECTION EXPECTED FOR CASE OF 
TIME-DEPENDENT COL!.ISION CROSS-SECTIONs SIGD(I1). 


50 READ 17sSIGDM 
60 GO TO (120911191119120)sNMEM 


INITIAL MEMORY INPUT. 


fe READe2:(B&121)sT=19N) 
moo Ge TOM 025 212591309130) 5NSRC 


SOURCE DISTRIBUTION. 
MeSeREAD 2Zet{SG&1)sT=loN) 
PRINT OUT INPUT DATA. 


1320 PRINT 7s NTYPsINDXsIPASSsNPAG 
NPAG=NPAG#H] 
PRINT 8 
PRINT 9eNTYPsNoNT eNSTPsMHOMsMODC sNMEMsNCOT »sNSRC 9 
IMODR »sMIITNsNDET sLISsJSCsKPARAs KPARBsNSPsNSPD 9 
2KSRC sMLIMsKTSS sKTDEP sKXXA 3K XXB ao KXXKC 9K XXD 9 KXXE 
PRINT 10sWDsSPDsCONVsEIGAsTSRCsTMITN 
PRINT 11 
PRINT 12s(TeBlIe1)sS(I)sSIGD(1)2sClI)sSIGP(1I)sT=19N) 
RETURN 
END 


esl 8 
ge aie 
SUBROUTINE RCNTRL 
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MAN 


i a al Sua mir) cy eye's 


a as al aa a is i a aa | 


i 3 
16 


THIS SUBROUTINE CONTROLS PROGRAM FLOW FOR FIVE BASIC 
PROGmeMr 1TYPES> IBENTIFIED BY THE VALWE OF NTYP. 


DIMENSION SIGD(30) sSIGP(30) sLID(3) 3B (339400) 5S630) » 
1G6(30930) sC(30) GI (30) E(30) sTOUT(30),FLT(30) 5 
2SLP(30) 9D139200) »sNTS( 200) sSRCI (200) sNXX( 200) sBEQ( 30) 5 
SFLXI30)SKEXA(30)9EXB( 30) 9EXC( 200) sEXD 0200) 

COMMON NTYPsNoNTsNSTP»MHOM »MODC sNMEMsNCOT sNSRCO 9 
IMODR »MITNsNDET sLISesJSCsKPARA s KPARB sNSPoNSPD 9 
2KSRCsMLIMsKTSS eK TDEP 9 KXXAoKXXB go KXXC sKXXD 9 KXXE 9 
AMA sNPAGs INDXsIPASSsNSCsNSOD sLIMsKFLsSIGDMs 
4WD»sSPDsCONVsEIGAsTSRCsTMITNsEIGB»sQUANsTSsDLITXs5 
SSIGDsSIGP»sLID»sB9SsGsCsGI s9EsTOUTsFLIT sSLPsDoNTSoSRCI 5 
6NXX sBEQsFLX sKEXASEXB9EXC 9EXD 

FORMAT( 1415) 

MmORMAT Wel 2 « S4l GBI 205 ) ) 

GO TO (1003200330034009500) sNTYP 


GENERAL PROBLEM. FOR NT GREATER THAN 19s THE 
TRANSFER PARAMETERS REMAIT. VALID FOR ADDITIONAL 
PROBLEMS WITH CHANGING SOURCESsC(I)s REACTOR SHZES»ETG@e 


100 CALL PARAMS 


FOZ 


O01 


INDE X=] 

CALL CALC4 

INDEX=INDEX+1 

me PONT —-TMBEX) 100951015101 
CALL RREAD 

coro 102 


HOMOGENEOUS REACTOR» COMPUTATIONS FOR NT DIFFERENT 
VALUES OF Ne 


200 CALL PARAM4 


201 


CALL CALC4 

INDX=INDA+] 

IF (NT-INDX) 1000320192201 
N=N+NSTP 

GO TO 200 


SeecPooIVE INITIAL SOURCE PROBLEMSs WHERE SOURCE IS 
meetl I Zep 10 ONE REGION AND LASTS” FOR JSC ™TIME 

SePS. NIYP=3 1S USEFUL FOR IMPORTANCE DISTRIBUTIONS 
AND FAST TRANSIENTSe THE KEXAC(I) ARE THE 

MeecifF TED SOURCE REGIONS FOR SUCCESSIVE RUNS, 


MOO READ 139 (KEXA(1)sI=1sNT) 


B01 
602 


CALL PARAM4 
eZASNSRC 

Pe 302 I[=1 sil 
Sreiey=0 . 0 
L=KEXACINDX) 
eT St 

en Ieya"1. 0 


. 
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MOAMADnDnN 


400 


40) 


402 


a a a 


500 


1000 


* OK 


CV rire t ) 


CALL CAC 4 

NSRC=KZA 

INDX=INDX+] 

IF (NT-INDX) 100033012301 


PROBLEM WITH TIME-DEPENDENT PROPERTIES WHICH ARE READ 
IN AT TIME OF EACH CHANGEe NT IS THE NUMBER OF 
EM@GESSTVE "SETS OF PROPERTIES TO BE READ IN. EACH 
SELeWILL LAST UNTO WeMaIN SECONDS. 


CALL PARAM4 

MITN=TMITN/TS 

CALL CALC4 

IPASS=IPASS#+]1 

IF (NT-IPASS) 100094019401 

READ 16esITMIINe (SIGD(T) »ClI)sT=19N) 
PO waO2) [=15N 

Oregrp(l)=C(1)*SIGDI(!I) 

GO TO 400 


TIME-DEPENDENT PROPERTIES ARE CONTROLLED OR COMPUTED BY 
PU oe R—WR] WN SUBROUTINES TDEP. (SIMPLE FUNCTIONS 
Ole TIME s FEEDBACK SETC)) 


SALi TOGP 

CALL PARAM4 

MITN=TMITN/TS 

CALL CALC4 

IPASS=IPASS+]1 
an 1-7 PSS) 10005500%500 
RETURN 

END 


BlSTs 
LABEL 
SUBROUTINE PARAM4 


THIS SUBROUTINE CONVERTS THE INPUT DATA TO THE 
PARAMETERS WHICH WILL BE NEEDED IN THE BIRTH RATE 
COMPUTATIONS IN SURROUTINE CALC4. 


DIMENSION SIGD(30) sSIGP(30) sLID(3) 9B( 339400) 95(30) » 
er 310530 ) 9G E30) > GI (30) 9E(30)>+TOUT(30) sFLT(30) >» 
2SLP(30)9D(39200) sNTS(200)sSRCI (200) sNXX(200) sBEQ( 30) » 
3FLX (30) »9KEXA (30) 9EXB (30) 9EXC( 200) »EXN (200) 

COMMON NTYP>sNoNT sNSTP sM4HOM sMODC »9NMEMsNCOT sNSRC 9 
IMODR sMITNoNDET sLISsJSC sKPARAs KPARB sNSPoNSPD 9 
Z2KSRC »MLIMsKTSS sKTDEP sKXXA 9K XXB sa KXXAC 9K XXD s9KXXE 9 
42MA sNPAGs INDXs IPASS sNSC sNSD sLIMsKFLeSIGDMs 
4GWDsSPDsCONV sEIGAsTSROCsTMITNsEIGB» QUAN sTSsDLIXs 
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MOO 


CYCY Cima 


CYC 


SSIGDsSIGPsLIDs89SeGeCoGI sEsTOUTsFLT sSLPsDoNTSsSRCI 5 
SNXXs SEQ sFLX s9KEXA 9EXBs EXC 9 EXD 
1 FORMAT(1H193X5H OVRR4s3X10H PROB.TYPF [35 
132X11H RUN NUMBER 1393X12H PASS NUMBER 1393X5H PAGE [3) 
2 FORMAT (1HOs15X36H CALCULATED INPUT PARAMETERS FOLLOW./ 
re OK ser ene =13915A7H MITN =16//10X7H DLTX =El4e7s 
210X5H TS =E14e7///5X9H TOMALL =E14e752X> 
3215H UNITS OF DLTXe25:6H LIM =I15///10X7H5IGDM =E12e59 
G5X6H JSC =I15///1X3KHRGNs8t SIGD(1)»s3X5H CII)» 
52X8H SIGP(1)»3X5H E(1I)s3X6H GI( 1) s3X7H FLT(T) » 
Sore See rrr ee AGH TOUT(1)7/(1391X%s3F106695F9.6)) 
3 FORMAT(1HO920X23H MATRIX GlIsJ) FOLLOWS.//2H [920Xs9 
116H MATRIX ELEMENTS ) 
meee tt tosor lle l/SAGFIile. /7TX6Flle ?/9XGFlle 7/1LIXGFlle7) 
QUAN=N 
Dipte=WO/ QUAN 
NM2=N-2 
NM=N-1 
DO 22 I=19N 
ARGU=SIGD(1I)*DLTX 
E(T)=EXPF(-ARGU) 
Pere) ya CTPaOHe (1 yep4 (2 .0* ARGU) 
SLP(1)=(1404E(1)-2.-0%(1,0-E(1) )/ARGU)/(8.0*ARGU) 
Gael )=(1.0—2 .O*#FLI(1))/(1.-0-E(1)) 
MOUTRT )=1 SOVRMRGU-E(1)/(].-0-El(1))} 
G(ITsT)=(ARGU=-2 .0+(ARGU+2 eO)*EC LT) )/(ARGU#(ARGU- 
Toros E (eee) ) 
GO TO (15922)  »MHOM 
22 CONTINUE 
SO SPO “Paro 


HOMOGENEOUS REACTOR. 


> 8B 200 Wr=2 »'N 
ger) = t (1) 
ELT (J =F.) 
SLPCI}=SLP(1) 
GIt?)=G6T(1) 
Teel t(1,=TOUT(1) 
BpOOVGtls1Y=Gl(1s1) 


Gi(IleJ)s FOR J GREATER THAN Is CONTAINS THE 
ATTENUATION FACTOR OVER THE REGIONS BETWEEN I AND Je 


210 DO 211 T=19NM 
pole I> 1 +1 ) = 1°@ 
BO 212 [= )SNM2 
Pea= [2 
Powers oie 2 oN 
Zee ols ) )=Gt Is J=—] GE ( J-1) 


G(IleJ)s FOR J LESS THAN OR EQUAL TO Is CONTAINS 
THE MEAN TIME DELAY BETWELN BIRTHS IN J (OR 1) AND 
COmeisIONS IN 7 (OR J)e 
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MON 


CY OV OV CVE 


CITC 


DO 213 I=25N 
P= | 
DO 213 J=lsIM 
OS) -1 
Be eGt feo O+1TOUT(1)+TOUT( J) 


GOUPUTAMION- OF UNTT TIME STEPs TS SEGONDS. 


GO TO (3093430)  sMODR 
430 ARGU=SIGDM#DLIX 
F=EXPF(-ARGU) 
TSMALL=(ARGU=2 .0+(ARGU+2 00) *F)/( ARGU# (ARGU-1-0+F)} 
GO TO 325 
309 K=l 
DO 320 L=2sN 
IF (G(LsbLjy-G(K9K)) 31093205220 
eo Kel 
22 OMGONT INWE 
TSMALL=G(K 9K) 
325 DO 330 J=1s5N 
330 GlIsI)=GlIo1)/TSMALL + 1¢0E-08 
DO 340 [=25N 
IM=I-] 
pores. OF = 1M 
340 GlIsJ)=G(I9J)/TSMALL 
SSMS MAeLADL TX/SPD 


COMPUTATION OF LIMs AN INTEGER GREATER THAN OR EQUAL 
Pome NeMBER OFF TPME STEPS FOR WHICH MEMORY IS 
REQUIRED. 


LIM=QUAN/TSMALL 

IF (MLIM) 344934453343 
343 LIM=MLIM 
3244 IF (4YSC) 35093505360 
moO JSC=TSRC/TS 
360 GO TO (51260) sKPARA 


PRINT OUT CALCULATED PARAMETERS. 


51 PRINT lseNTYPsINDXsIPASSsNPAG 
NPAG=NPAG+]1 
PRINT 2eNeoMITNsDLTXesTSsTSMALLsLIMsSIGDMsJSCslIs 
TSIGD( I) sClI)sSIGP(I) sE(T)sGICI)sFLIC I) sSLP(T) » 
2TOUT (CI) sIT=19N) 
GO TO (525360) sKPARB 
52 PRINT 1eNTYPsINDXeIPASSsNPAG 
NPAG=NPAG+]1 
PRINT 3 
BO. 53 P=15N 
52 PRINT 105 TslGlIoJ)sJ=19N) 
6€ RETURN 
END 
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L I Sales 
LABEL 
SUBROUTINE CALC4 


THIS SUBROUTINE SOLVES THE PROBLEM POSED AND PRINTS 
OtiieetiHE RESULTS. 


DIMENSION SIGD(30) sSIGP(30)sLID(3) 3B( 333400) 3S(30)s 
WG(305930) 5C(30)961(30) sE(30) sTOUT(30)sFLT (30) > 
2SLP(30) 9D(39200) sNFIS(200)sSRCI (2900) sNXX(200) sBEQ(30) 5 
mmemAtJSO)sKEAA (30) »EX8(30) sEXC(200) »EXD( 200) 

COMMON NTYPsNoNT sNSTP »MHOM sMODC sNMEM,NCOT sNSRC 9 
1MODR sMI TNsNDET sLISsJSCsKPARA s KPARBsNSPoNSPD 9 
Z2KSRC sMLIMsKTSS eK TDEP sKXXA 9K XXB db KXXC ps KXXD dKXXE 9 
3MA sNPAGs INDX sg IPASSsNSCeNSDsLIMsKFL sSIGDMs 
4WD2eSPDsCONV sEIGAsTSRCsTMITNsEIGBsQUANsTSsDLTXs9 
5SIGDsSIGPsLIDsBsSsGsCoGI sEsTOUTsFLI sSLPsDsNTSsSRCI 9 
EBNXX »sBEQsFLX sKEXAsEXBs EXC? EXD 

FORMAT(1H1s5X6H OVRR493X&E&H PROBLEM [35 
13X4H RUN I1393X5H PASS 1395X5H PAGE 14) 

FORMAT(1HOs5X18H TRANSIENT RESULTSs 
15X47H BCI»sNSC) = BIRTH RATE — EXTERNAL SOURCE.) 

FORMAT(CIHOs9HTIME STEPs1594113/7H REGIONS 
1(1394X%55E13-67)) 

FORMAT(1HOs20X20H CONVERGENCE RESULTS) 

PORMAM (EMO—SSXTH NCOT =I12910X6H NCN =] 2s10X6H NSC =I15// 
LIOX8H CONVB =E14.8s10X7H EIGB =E14.8) 

FORMAT(1HO/20X25H ASYMPTOTIC DISTRIBUTIONS//9H REGe NOes 
15X11H BIRTH RATEslIX5H FLUX/(1627XF11-2¢8sF20-8) ) 

morrien! (lel Om2OXSIHRESULTS GF weAST FIVE TIME STEPS// 

Me 2X9 0E1L3.7)) 

FORMAT(1HO0s20X26H DETECTOR RESPONSE RES JLTS + 
WMOXTRONDET =12/7/13X7H SOLRCEs8X11H DETECTOR ls» 

Ze Xl ILHSDETECTOR 2s5X11H DETECTOR 3/79H LOCATION 18s, 
Peto 710H TIME STEP) 

FORMAT(16:4E16.28) 

FORMAT(LHOs9HT IME STEPs1594113/) 

PORMAT(13:4X,5E1327) 

GO TO (1003300) MA 

GO TO (2855151) sMODR 

@@ePTO (20002010) TSS 


FOR STEADY STATE PROBLEM. 


2010 LIM=4 


om) «YP PROBLEM=GONSTANTS. 


2000 LIMK=200-LIM 


PMT =lehMit 200 
meet P=LIMT+1 
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MOO 


Cre rey 


NOAM 


LIMP=LIM+1 
NM=N—1 
NNN=LIM+NSP 
NI=N+1 
N2=N+2 
N3=N+3 
NM3=N-3 
NHALF=aN/2 
NNB=0 
hisv=1 
NSC=0 


Sel INITIAL MEMORY IN BCI 9K)- 


GO TO (110912091305140) shMEM 

moO OO 111 JI=ls5N 

111 B(Ie1)=1-0 

m0 DO 121 J=2s5l iM 
DO 121 T=15N 

met Bl(ls>J)=B(ls1) 
SOP Pron 5 0 

130 ARGO=EIGA#TS 
R=EXPF (ARGO) 
PO 13) S=25LIM 
fl =-J-1 
DO 131 T=l15N 

131 BClsJI=HR¥*B(15K1) 
@O TO 150 

140 DO 141 T=l19N 

el Bls))=1.0E-25 
aor 10) 120 


CLEAR REMAINDER OF B(I9K) ARRAY. 


hS0 DO 119 J=LIMP,400 
DO 119 T=15N3 

mo Bt lsJ)=0-0 

151 K=LIM 


SeMPUTE BIRTH RATE DISTRIBUTION AT TIME STEP NSC. 


152 NSC=NSC+1 
KFL=K 
K1=K 
K=K+1 
KTWO=K+200 


e@erce DISTRIBUTION AT TIF= STEP NSCe 


GOP TOPUT60 5 15491555157) 5NSRC 
met IFC IJSC=NSC) 15521503160 
m5 DO 156 f=1.5N 
mo StT)=0.0 

NSRC=1 





GOs] Omk60 


m7 CAL SOURCE 
160 GO TO (1663966) sMODC 


MAC 


266 


NAN 


20 20 
2022 
B02) 


eS 


5 Om 


164 


302 


olbe, 


B03 


162 
167 
C 
C 


3 
2030 


2163 


216¢ 


FLAT APPROXIMATION. 


Gem O7~( 202037030) »KTSS 


TIME~DEPENDENT PROBLEM. 


GO 190 (202132022) 46KTDEP 
CALL TDEP 

DO 161 IT=1N 

SUM=0 40 

DO 162 J=lo9N 

Meeeto—-t) 1639 G4 )65 
KT=G(I9J) 

Peet KI-LiM) SO0Tsl62s162 
TT=KT 

WeG(lsJ)-TT 

MK=K-KT 

SUM=SUM+FLT( J) #G(IU91)*¥(01.0-W)*(B (I o9MK)+B( 4 sMK+200) )+ 


1W* (BC JsMK-1)+B(4»MK4+199))) 


GOr PO 16 2 

KT=G(IoeI) 

Pe URT-UIM) 30221623162 

er =k T 

W=G(I5I)-TT 

MK=K=-KT 
SUM=SUM4+GI(1)*((1.0-W)*(B(Us»MK)+B( JU 9MK+200) )+ 


IW*¥ (BC JsMK-1)4+B(49MK+199) )) 


G@rTO 162 

KT=GlJUoel) 

Eek —LIM) 30331625162 

TT=KT 

WeG{Js1)-TT 

MK=K=-KT 

SUM=SUM+FL T(J) *#GCTsJ)*((1.0—-W) (BCI 9MK) +B I »9MK+200) )+ 


1W*(B(JSsMK-1)+B(J»MK+199))) 


CONTINUE 

Bil sKTWO)=S(T) 
BlIoK)=C(1)#(120-E(1))*SUM 
GO WO W75 


Seeewre STATE PROBLEM -- GENERATION STEP NSCe 


DO 2161 I=195N 

SUM=0.0 

DO 2162 J=19N 

IF (J-¥) 21639216452165 
SUM=SUM+FLT (J) *G(J91)*(BlIsK1)4+S(045)) 
oer |OPZ162 

SUM=SUM+GT( IyeCBOTeK1)+S (1) 

Com} OMG 2 








+) et be = 





w ¢ ae  .@e@e « ' j 
sme of an 









item et Stet Ott 
lied Fo ‘4 j 
i sie Ane iowa Ok 7 « 


} 























































“7 ean . 
le e-« - yer Tit Serene Fie i ft 
Ja 1) ' et) es Le Ti 
a: 
ir: =’ * 
sf. : ' tetorrTe r a 
' 
ti tik : 
7 . = 4 ; i ~, - —youtt 4 
ioe oe ee ‘ 
is’ ores 7 
se! 
= i tet as Ow 
wee 
ee 
‘ : ‘ =6s:68 — ‘ 
owt ie 
one ‘ 
: eed Te . 
Te 
. er ‘, 
' ’ : ~~" tee 
.} sab oe 
7 paar . 
—~- oe tor eee 
; 1 - teae 1; t= ot Ba 
“= : a 
' . F 'F | 0 ae 4 


al° oe 


moo SUM=SUM+T Fil (Stet! sW)*(B0IsK1)4+S(4) ) 
moe CONTINUE 
pro] BTsKI=CCl)*01.0—-ct(1))*SUM 


GGrTo 175 

q 
a SWOPESEGORRECTION. 
@ 

Pee GOP TOe( 222062230) »sK TSS 
q 
C TIME-DEPENDENT PROBLEM. 
C 


mee GO-TO (222152222) sKTDEP 
| Beec CAbk TDEP 
2221 DO 961 IT=loeN 
SUM=0.0 
irra) 97259729971 
971 KT=G(I 91) 
IF (KT=-LIM) 3045972:;972 
2704 TT=KT 
W=G(I591)-TT 
MK=K-KT 
MKM=MK-1 
GAM=2.-0*(B(2sMK)*SIGP(1)/SIGP(2)-B(1l»MK)) 
HAM=2-0* (8( 2 »MKM)*¥SIGP(1L)/SIGP(2)-B(1 »MKM) ) 
SUM=SUM+G(1 I) *¥CFLT(1)*(01.0-W)*(B(1 »>MK)4+B(1 »>MK+200)) + 
LW*(B (01 »>MKM) +801 sMKM+200)))+SLP(1)*( (31 20-W) *GAM+W*HAM) ) 
972 DO 973 J=25NM 
Pre (J=1) > 97499739975 
974 KT=G(I9J) 
Pe OKT —lelM) 6310559735973 
205 TT=KT 
W=G(ITesJ)-TT 
MK=K-KT 
MKM=MK-] 
JP=J+] 
JM=J-] 
GAM=SIGP(J)*(B(JP»sMK)/SIGP(JP)-B(JMsMK)/SIGP( JM) ) 
HAM=SIGP(J)*(B(IP»MKM)/SIGP(JP)-B(UMsMKM)/STIGP( UM) ) 
SUM=SUM+G(JsT1)*# (FLT (J) ¥0412.0-W)*(BlI9MK)+B( JU 9MK4+200) ) + 
TW* (BC JsMKM) +8 (J sMKM4200)))4+SLP(J)*( (1 2.0-W) *GAM+W*HAM) ) 
GO TO 973 
pepo KT=G(J5T) 
mM (KP=091M) 3065973 ,973 
Soo | l=KT 
W=G(JeI)-TT 
MK=K-—-KT 
MKM=MK=1 
JP=J+1] 
JM=J=-1] 
GAM=SIGP(J)*(B(IMsMK)/SIGP( JM) -B(JP»MK)/SIGP(JP) ) 
HAM=SIGP(J)#*(B(UMsMKM) /SIGP(IM)-B(IP.MKM)/SIGP(UP) ) 
SUM=SUM+G(ITsJ)*(FLT(J) #001 -0O-W)*#(BlIsMK)+B0 4 »MK+200) )+ 
1W*(B(JsMKM) 4B »MKM4+200)))+SLP(J)*( (1 e-0-W) *GAM+W*HAM ) ) 
273 GONTELNUE 
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IF (N-I) 97799773976 

KT=GUN5T) 

IF (KT=-LIM) 307539773977 

TT=KT 

W=G(NoIT)-TT 

MK=K-KT 

MKM=MK—-]1] 

GAM=2-0* (B(NMsMK)*STGP(N)/SIGP(NM)-B(NsMK) ) 
HAM=2-0* (3 (NMoMKM)*SIGP(N) /SIGP(NM) -B (NsMKM) ) 
SUM=SUM+G(T9N)*(FLT(N) #0 (1 0-W)*¥( BIN MK )4+B(NoMK4+200)) 4+ 
1W* (BON s»MKM)+B(0N sMKM+200)3)+SLP(N)¥*( (1 e0-W) *GAM+W#HAM ) ) 
KT=G( 151) 

TT=KT 

W=G(ITsI)-TT 

MK=K—-KT 

MKM=MK-1 
SUM=SUM+GI(1)*((12¢0-W) *(Bl I sMK)+B( I »MK+200) )+ 
TW*(BCIsMKM) +B TI »MKM+200) ) ) 

BCI sKTWO)=S(T) 

meek sO 0) 201. O—E la) ) SUM 

GOrt Owl 75 


Cree biewotTATE PROBUEM -- GENERATION STEP NSCe 


DOmaecl I=] si 

SUM=0.0 

me Cl) 2972329729297) 
GAM=2.0*(B(2sK1)*SIGP(1)/SIGP(2)-Bl1,5K1)) 
SUM=SUM4+G(151)*(FLT(1)*(B(1sK1)4+S(1))+SLP(1)*GAM) 

DOme2 9 7 gal= 2 » NM 

IF (J-1) 297439297332975 

met =o 1 GPt)) “G5 (J+1>5K1)/51GP(J+1)-BlJ-1sK1)/SIGP(J=-1)) 
SUM=SUM+G(JeI)*(FLT( JY) ¥(B( J 5K1)45(45))+SLP( I) GAM) 

Gee TO 2973 

emer Ge iy (BK J=]ekK1)/SIGP(J=1)-BlJ+1sK1)/SI1GP(J+]1)) 
SUM=SUM+G(IsJ)*(FLT(J)*(B( J 9K1)4+5S(J))4+SLP(I)*GAM) 
CONTINUE 

Pe PUNST 2977929772976 

GAM=2.-0* (B(NMsK1)*SIGP(N)/SIGP(NM)-B(NoK1)) 
SUM=SUM+G( I oN) #¥(FLT(IN) ®#(B(NsK1)4+5S(N))+SLPON)*#GAM) 
SUM=SUM+G1(1)*(Bfl1sK1)+S(C1)) 

BCI sK)=C(I)*#(1-20-EC 1) )*SUM 

PemeOnDET) J77slif7?s171 


RECORD DETECTOR RESPONSES IF NDET GREATER THAN ZERO. 


NNA=NNB 
NNB=NSC/NSPD 
ITF (NNB=NNA) 17791779145 


45 —PD=0 
147 IF (NDET=$ID) 17631763146 
146 ID=ID+1 


LOC=LID(ID) 
D(ID»NSD)=BCLOC 9K )/SIGP(LOC) 
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6@ TO 147 
176 NTS(NSO)=NSC 
SRECPCNSR Y= 5 (KS 
NSO=NSD+1 
Peeeenow MZ 9ey lf ?s177s399 
399 NSOM=200 
JAD=1 
GO TO 400 
o> NSD=1 
m7 GO TO (18031782180) »NCOT 


DISTRIBUTION SPACE-TIME CONVERGENCE TESTS. 


mao B(NI1sK)=B8(12K)/Bl(15K1) 
B(N2 sK)=B(NHALF oK)/B(NHALF sK1) 
B(N3sK)=B(NM3sK)/B(NM3 sK1) 
IF(NSC=$LIM)178517851381 

181 V1=ABSF(IB(N2 2K) —-B(N1 5K) ) 
CONVB=Vi 
IF(V1-CONV) 1825178:178 

182 V2=ABSF(B(N3sK)—-B(N19K)) 
V3=ABSF(B(N1 »K)-B(N1] sK1)) 
V4=ABSF(B(N2 sK)—-B(N23K1)3 
V5=ABSF(B(N3 sK)-B(N3sK1)) 
CONVB=V14V24+V34+V44V5 
IF (CONVB-CONV) 2%70+250,178 


GOMPLETION CRECKS. 


eo I (MPTN=ENSC) 20092009179 
moetr (200K) 18551839152 
183 GO TO (18551845184) »sNCOT 
184 KFL=200 

JAT=1 


PRINT OUT TRANSIENT RESULTS. 


60 NAF=HENSCHKFL 
IF (KFL-NNN) 59552552 
52 DO 108 J=ENNNoKFL sNSP 
108 NXX(J)=J+NAF 
LLL=NNN 
eo TIry}=0 
PRINT ls NTYPsINDXsIPASS »NPAG 
NPAG=NPAG+1 
PRINT 2 
54 JJJ=LLL+4*NSP 
MMM=KFL+NSP—-1-JJJ 
IF (MMM) 563956350 
5( PRINT 3s (NXX(J) sJELLLeoJlZIsNSP) » 
ieee Biel so) s@=LLLs»JJJ»NSP)sT=15N3) 
aimee +N S P 
fee N20) 51951953 
Sir ( lee) 6955 95 53 
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55 @el 1 
GO TO 54 
56 IF(KFL-LLL) 59358558 
58 PRINT lls (NXX(J)sJ=ELLLsKFL sNSP) 
00 57 T= 1s NS 
By PRIMN® 12s le@B( IeJ) +>J=LLL »KFL»sNSP) 
59 NAA=NSC/NSP 
NAB=NSP#NAA 
NAC=NSC —- NAB 
NNN=LIM + NSP — NAC 
GO TO (985.265 )s@AT 
185 JAR=l1 
KSL=LIMK 


B(IsK) ARRAY FILLEDs RESET FOR NEXT PASS. 


277 DO 186 J=lsLIM 
L=KSL+J 
DO 186 T=13N3 

eer B(lsJ)=B8(1 sL) 
DO 118 J=LIMPs200 
DO 118 IT=1 sN3 

ie ‘Bt lo) =0.0 
BOW01 J=201>LIMT 
L=KSL+J 
DO 101 T=19N 

101 BiTsJ)=BlTsL) 
DO 102 J=LIMTPs400 
DO 102 I=1lo9N 

102 B(lsJ)=0-0 
GO TO (1519285) sJAR 


RAE SP PGTRTEDWNBMBERM@OF TIME STEPS HAS BEEN REACHED. 
200 KFL=K 

NCN=2 

GO T0260 


THE DISTRIBUTION HAS CONVERGED. 


250 KFL=K 

NCN=1 
feo GO 10 (26532612261) »NCOT 
Bole oAt=2 

mo TO 60 


Meo GO TO (26632703266) »NCOT 
COMPUTE AND PRINT OUT CONVERGENCE RESULTS. 


Poorer =WOGE@B(N2 sKFL))/TS 
KFLT=KFL+200 
SUM=0.0 
SUMT=0.0 
DO 132 JT=1N 
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400 
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401 
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DNVNAOAN 


Ae xtive Bt iskhi)/ Sher: 1 ) 

GO TO Gecmie Sisk SS 
BUlekKr et )=5 Cl 

SeQw=Btilsnr LitBt(IskKFLT) 
SUM=SUM+BEQ(T) 

SUMTPHaSUMT +mex (1 

SUM=SUM/QUAN 

SUMT =SUMT/QUAN 

DO 133 I=l1oN 

pret! )=pe Grr, / Sem 

Bix (1) = Flex CI SUM” 

KM?7=KFL—4 

PRINT ls NTYPsINDXsIPASSsNPAG 
NPAG=NPAG+] 

PRINT 4 

PRINT Ss NCOT  sNCNsNSCsCONVBSEIGB 
PRINT 69(I1sBEQ(1I)sFLX( I) sT=19N) 
PRINT ls NTYPsINDXsIPASSsNPAG 
NPAG=NPAG+1 

PRINT 4 

PRINT 7slIs(BlI9J)sJ=KM7 sKFL) »I=19N3) 
We (NDEI) 27592 75 sa71 

NSDM=NSD-1 

JAD=2 


PRINT OUT DETECTOR RESPONSE READINGS« 


JAAA=1 

JBBB=45 

PRINT ls NTYPsINDXsIPASS »sNPAG 
NPAG=NPAG+] 

PRINT 8sNDETsLISs(LID( I) sI=1sNDET ) 
IF (NSOM-JBBB) 81 581382 

JBBB=NSDM 

DO 83 J=JAAAsJBBB 

PRINT 9eNTS( J) sSRCI( J) 9 (OC Is) sT=1lsNDET) 
IF (NSDM-JBBB) 40153401584 
JAAA=JAAA+45 

JBBB=JBBB+45 

GO TO 85 

GO TO (4059275) sJAD 

GO TO (2853276) »sMODR 


RESET INDICES AND MEMORY IN PREPARATION FOR ALTERED 
PROPERTIES ON THE NEXT PASS. 


276 MA=2 


E85 


NSD=1 

JAR=2 
KSL=KFL-LIM 
so, TO 277 
RETURN 

END 
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APPENDIX B 
THE PROGRAM TOVSR (SLAB GEOMETRY) 


The program TOVSR, for the time-dependent monoenergetic slab 
reactor, is written in FORTRAN II language for the IBM~7094 computer. 
In addition to the short MAIN program, the following seven subroutines 
are required; SOURCE, TDEP, READ2, CONTRL, TPARAM, TABLE and TCALC. 
The functions of each subroutine are described by comment statements 
in the listings. The program occupies 4435 (decimal) core locations. 


COMMON storage occupies 15775 locations. 


An input form is given in Section Bl, The input variables are 
defined in Section Be and the output variables are defined in 
Section B3. The program output for a simple example problem, the 5- 
region, Model FSCrun of Table 35.1, is given in Section BY. Finally, 


the FORTRAN listings are given in Section B5. 





Bl. 


Notes? 


Card 


No. Condition 


0 


H FO te we oO Awe FP Fw Dd FE 


TOVSR INPUT FORM 





(a) 126 E(p) data cards are read-in before card No. 0. 


(b) Input data cards should be arranged in the order shown. 


(c) Numbered cards are mandatory for each problems inclusion 
of alphabetically designated sets of cards is conditional. 


(d) FORTRAN II format is given in the brackets. 


Variables to be Read 


NPROB 


Read the following for each problem to be solveds 


MHOM=1 
MHOM=2 
MHOM=2 
KMIX-O 
NDET-O 
MODR=2 
NMEM=2 , 3 
NSRC=1, 2 


NTYP=1, 
i= 1 


NTYP=3 


NIYP=4, 
NT>=1 


NTYP,N,NT,NSTP, MHOM, MODC , NMEM, NCOT , NSRC 
MODR, MITN,NDET, LIS, JSC,KPARA, KPARB, NSP, NSPD 
KSRC ,MLIM, KTSS , KTDEP, KMIX , KXXA, KXXB, KXXC, KXXD 
WD, SPD, CONV, EIGA, TSRC, TMLTN 


SIGD(1),C(1) 
(SIGD(I) ,C(I) ,I=1,N) 
(RERE (CL) kan} 
(KMDC(I) ,I=1,N) 
(LID(ID) ,ID=1,NDET) 
SIGDM 
(Ceeei=17 3) 

(S(I) ,I=1,N) 


Add new set of cards 1 through F 


for each additional run 
(KEXA(I) ,I=1,NT) 


Add the following cards for 
each additional pass 

TMITN 

(SIGD(I) ,C(I) ,I=1,N) 

(KTRL(1) ,i=1,N) 


FORMAT 


[15] 


[9I5] 
[915] 
[915] 
[6812.5] 


[2E12, 51 
[6812.5] 
[14175] 
[1415] 
[315] 
[E12.5] 
[6E12.5] 
Poul soll 


[1415] 


(E12.5] 
[6812.5] 
[1425] 





als 


BZ. DESCRIPTION OF TOVSR INPUT VARIABLES 


Notes} 


NPROB 
NTYP 


N 


NT 


NSTP 


MHOM 


MODC 


(a) Assignable values are enclosed in brackets, Where 
different values alter the logical flow of the progran, 
the meaning of each value is defined. 


(b) The variables are arranged in the order in which they are 
are read by the program, 


INTEGERS 


= No. of independent problems to be solved [= 1] 


= Problem Type (See Subroutine CONTRL). 

1 = General problem. NT runs with same TPARAM-computed 
properties. 

2 9 Homogeneous reactor. Computations for NT different 
values of N. 

3 -@ Initial, localized source problem. NT successive runs 
with sources in different regions. 

4) = Time-dependent properties are read=in at time of each 
change, NT sets of properties. 

5 © Time-dependent properties controlled or computed by 
user=written subroutine TDEP. 


=No. of regions. [f4= N= 30] 

= No. of successive runs or passes, as described under NTYP. 
1} 

= Increase in N for each successive run of an NIYP = 2 problem. 
(=1, if NTYP=2] 


ti 


; - Homogeneous reactor. 


2 = Inhomogeneous reactor. 


1 = Model F (Flat approximation). 
2 = Model FS (Slope Corrsction) . 
3 » Model FSC(Slope and curvature corrections). 





TOVSR INPUT VARIABLES (cont'd 


NMEM = Control variable for setting the LIM time steps of initial 

MeMOry o 

1 - Sets B(I,K) =1.0 for I=], N and K=1, LIM. 

2 Reads B(I,1) for I=1, N; sets B(I,K) = B(I,1) for I =l, 
N and K = 2, LIM. 

3 - Reads B(I,1) for I = 1, N; sets B(I,K) in accordance with 
inverse period EIGA for I =1, N and K = 2, LIM. 

tee Sets B(L,K) = fon coe = 1, N and K =1, LIM. 


NCOT = Control variable for asymptoticity testing and transient print 
out. 
1 = Tests for asymptoticity at each time step. Does not 
print transient results, 
2 = No asymptoticity convergence test. Prints transient 
results with a spacing of NSP time steps. 
jo = Both tests for asymptoticity and prints transient. 


NSRC = Source rate control variable. 
1 = Reads S(I) for I =1, N; source constant in time. 
2 ~- Reads S(I) for I =1, Ns source lasts JSC time steps. 
3 - Sets S(I) = 0 for I =1, N. 
4 = Calls user-written Subroutine SOURCE at each time step. 


MODR = jl = One pass into Subroutine TCALC. 
2 NT passes through TCALC, where property changes are made 
before each pass. Run continues with new properties. 
Always use this value with NTYP = 4 or 5. 


eee (A Pees 


il 


MITN Maximum number of time steps [=1]. For NIYP = 4 or 5, 


MITN = TMITN/unit time step. 


NDET =No. of detectors [0 = NDET = 3]. Detectors are located in 
regions LID(ID), ID = 1,3. NDET > 0 causes printout of S(LIS) 


and detector responses with a spacing of NSPD time steps. 


pic = Pegion for wiich source rate S(LIS) is to be printed out if 
NDET >0. (1= LIS= N, if NDET > Oj. 


TOVSR INPUT VARIABLES (cont'd 


JSC = Duration in time steps of initial source distribution. 
[=0, if NSRC = 2]. If JSC = 0, program computes new value 
equal to TSRC/unit time step. 


KPARA = Print control variable in Subroutirie TPARAM. 7 
1 » Prints calculated parameters, | 


2 - Does not print. 





KPARB = Print control variables in TPARAM. 
1 = Prints arrays G(I,J), GSLP(I,J), GCRV(I,J) and GTAU(I,J). 
& - Does not print. 

NSP = Time step spacing in transient print out. [21, if NCOT = 2,3] 

NSPD = Time step spacing in detector~response print out, 
[=1, if NDET= 0] 

KSRC = (Dummy variable not used in listed program). [any] 

MLIM = Control variable for LIM, the number of memory time steps. 


O - LIM computed by program. 
=O » LIM is set equal to MLIM. 


KTSS = |] = Time-dependent problem. 

2 = Steadyestate or generation-to-generation problem, 
KTDEP = |1 = Subroutine TDEP not called from TCALC. 

2 = TDEP called from TCALC at each time step if KTSS = 1. 
KMIX = lo ~ Sets KMDC(I) = MODC for I =1, N. 

pO - Reads KMDC(I) for I =1, N. 


KXXA, KXXB, KXXC, KXXD = Dummy variables included in READ statement and 


pregram COMMON for user convenience in selective reprogramming. 


[any ] 
FLOATING POINT VARIABLES 
WD = Reactor Widtn, ome 
SPD = Neutron specd, om. /sec. 


CONY = Asymototicity ccnvergsence criterion. 


TOVSR INPUT VARIABLES (cont'd 
EIGA = Inverse period, a. for setting initial memory if NMEM = 3. 


TSRC = Duration in seconds of the initial source distribution if 
NSRC = 2, (See JSC). 


TMITN = Time in seconds, after start of transient, until which the 
current set of properties is to apply, if NTYP = 4 or 5. 
(See MITN). 


SIGDM = Maximum collision cross-section expected in a problem with time- 
dependent properties, for MODR = 2. Fixes a unit time step 
which remains constant and is less than or equal to every 


expected time delay 7(I,J). 


ARRAYS 
SIGD(I) = Collision cross-section, on™, in region I, 


C(I) = Mean number of secondaries per collision in region I. 


i 


KTRL(T) 1 = Property discontinuity at left edge of region I. 
O = No property discontinuities at edges of region I. 


-l = Property discontinuity at right edge of region I. 


i 


KMDC(T) 1 - Flat approximation for parent neutrons born in 
region I. 
Ze Slope correction. 


3 » Slope and curvature corrections. 
LID(ID) = Region in which detector No. ID is located. 


B(I,1) = Progeny birth rate in region I to be used in setting up the 
initial memory. (Note that B(I,K) in this program does not 
include external source rates. These are stored in 
B(I,K + 150).) 


S(T) = External source rate in region I. 


KEXA(T’ == Region for initial source in run I of an NIYP = 3 problen. 





 +B3. DESCRIPTION OF TOVSR OUTPUT VARTABLES 





Notes Variables are listed in order of appearance. Those described 
in the previous section are not included here, 
| Printed if KPARA = 1% 
DETX = Width of subregion , cm 


| 
| TS = Unit time step, sec. 


| TSMALL = Distance particle travels during unit time step divided by 
| DLTX. 


LIM = No. of time steps reserved for memory. 


KSMALL = Integer computed in TPARAM. LIM is set equal to the product 
of N and KSMALL if MLIM = 0. 


PATH(I) = Optical width of region I in mean free paths parallel to the 
XwAX1LS « 

Printed if KPARA = 1 and KPARB = 1° 

G(I,J) = Spatial transfer coefficient for the flat mode. 

GSLP(I,J) = Spatial transfer coefficient for the slope-correction mode. 


GCRV(I,J) = Spatial transfer coefficient for the curvature-correction 


mode. 

GTAU(I,J) = Mean delay, in unit time steps, between births in J and 
collisions in I. 

Printed if NCOT = 1 or 38 


NCN = |1 =~ Asymptotic soluticn. 
2 - Solution not asymptotic. CONV not satisfied. 


NSC = Number of time steps or iterations completed. 
CONVB = Degree of asymptoticity convergence attained, 
HIGB = Inverse period, peo of the asymptotic solution. 


BIRTH KATE = Normlizec asymptotic birth rate distribution, ‘including 


the external source rete. 


FLUX = Normalized flux distribution. 


= 


Printed if NCOT = 2 or 33 


B(I,K) = Progeny birth rate in region I at time step K; it does not 
include contributions from external sources. The values for 
IT=N+1, N +2, and N + 3 are the ratios R, (I), R.(K) and 
R.(K) of equations (2E.2). 
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B.4 EXAMPLE OF PRINTED OUTPUT FROM TOVSR 


TOVSR PROBLEM 1 RUN 1 PASS 1 PAGE 1 


INITIAL INPUT DATA 


NTYP = 1 SS 5 NT = 1 NSTP = 0 MHOM = 
MODC = 3 NMEM = 1 NCOT = 1 NSRC = 3 MODR = 
MITN = «9 NDET = 0 Wie (6 JSC, =10 KPARA = 1 
KPARB = 1 NSP = 0 NSPD = 0 KSRC = 0 MLIM = 0 
fies = 1 MEDDE = L KMIX = 0 nO Oe E 
ieaB = 0 KxG = © KXXD = 0 
WD = .29464E O01 CENTIMETERS. SPD = .22000E 06 CM. /SEC. 
CONV = 1.00000E--07 EIGA = ,OQOOOE OO INVERSE SEC. 
TSRC = .QOO00E 00 SECONDS. TMITN = ,QOOO0E 00 SECONDS. 

RGN. B(I,1) S(I) SIGD(TI) C(I) KMDC(I) KTRL(T) 
1  .Q0000E 00 .0Q000E 00 .500000 1.400000 3 1 
2  .O00000E 00 .00000E 00 .500000 1.400000 3 0 
3.  .QO00O0OE CO .O00000E 00 .500000 1.400000 3 0) 

4  .QO0000E 00 .00000E 00 .500000 1.400000 3 0 
5  .00000E 00 .O0000E 00 .500000 1.400000 3 eal 





EXAMPLE PROBLEM (cont 'd) 


TOVSR PROB. TYPE 1 RUN NUMBER 1 PASS NUMBER 1 
CALCULATED INPUT PARAMETERS FOLLOW. 
N= 5 MITN = 50 
DLTX = .5892800E 00 TS x 
TSMALL = .1376999E 01 UNITS OF DLTX. LIM= 5 
SIGDM = .00000E 00 JSC =0 KSMALL = 1 
RGN. PATH(I) 
ale o 29L6UO 
2 » 294640 
S » 2GUEHO 
4 0 2GEOHYNO 
5 » 294640 
TOVSR PROB. TYPE 1 RUN NUMBER 1 PASS NUMBER 1 
MATRIX G(I,J) FOLLOW. 
| MATRIX ELEMENTS 
I, 3299258 »1517087 0712791 0405118 
2 » 1517087 33299258 »1517087 ,0712791 
3 20712791 » 1517087 532992 58 » 1517087 
Lb 20405118 00712791 » 1517087 53299258 
5 20246691 20405118 20712791 51517087 
| TOVSR PROB. TYPE 1 RUN NUMBER 1 PASS NUMBER 1 
| MATRIX GSLP(I,J) FOLLOWS. 
MATRIX ELEMENTS 
mo Coo. ~.0059650  =,0018119  ~=.008750 
2 .0059650 =O. ~,0059650  =.0018119 
3 »0018119 00059650 0. @ 60059650 
Ly ° 00087 50 © 0018119 ° 00596 50 0 fe) 
5 ~0004837 000087 50 oole1ig .0059650 


PAGE 2 


«36883 55E-05 


PAGE 3 


» O2Z46691 
00405118 
20712791 
o 1517087 
0 3299258 


PAGE 4 


= .0004837 
~ 200087 50 
='s 0018119 
= .00596 50 
QO. 





EXAMPLE PROBLEM (cont'd) 


TOVSR PROB. TYPE 1 RUN NUMBER 1 PASS NUMBER 1 
MATRIX GCRV(I,J) FOLLOWS. 
MATRIX ELEMENTS 
1, 0018220 0007313 0001005 0000374 
2 .0007313  -.0018220 ,0007313 .0001005 
3 0001005 .0007313 =.0018220 0007313 
4 0000374 0001005 ,0007313 =.0018220 
5 .0000172 0000374 0001005 0007313 
TOVSR PROB. TYPE 1 RUN NUMBER 1 PASS NUMBER 1 
MATRIX GTAU(I,J) FOLLOWS. 
MATRIX ELEMENTS 
1,  —1,0000000 ~=«s:-1427955801 =. 28463779 Ss: 327300318 
2 1.7955801 1.0000000 127955801 268463779 
3 228463779 1.7955801 1.0000000 167955001 
4 3,7300318  2.8463779 1.7955801 1.0000000 
5 4, 5622697 3..7300318 268463779 1.7955801 
TOVSR PROBLEM1 RUN 1 PASS 1 PAGE 7 
CONVERGENCE RESULTS 
NcoT = 1 NCN = 1 NSC = 24 


CONVB = .81956387E-07 EIGB = =,28672820E 02 


ASYMPTOTIC DISTRIBUTIONS 


REG. NO. BIRTH RATE FLUX 
aL 081.5047 59 2015047 58 
2 1.09297632 1.09297632 
3 1218395206 1.1839 5206 
4 1.09297638 1.09297638 
5 081504769 081504768 


PAGE 5. 


0000172 
00000374 
eQ0001005 
20007313 
= ©0018220 


PAGE 6 


4, 5622697 
3.7300318 
268463779 
1.7955801 
1.0000000 





CON On EW D-H 


TOVSR 


07960513E 00 
~1067503E O01 
~1156358E O1 
»1067503E 01 
o7960514E 00 
29998945E 00 
09998943E 00 
»9998943E 00 


PROBLEM 1 


RUN 1 


CONVERGENCE RESULTS 


PASS 1 


PAGE 8 


RESULTS OF LAST FIVE TIME STEPS 


°7959673E 00 
°1067390E 01 
0 1156236E O1 
»1067390E O1 
°7959674E 00 
09998945E 00 
0 9998942E 00 
09998942E 00 


°7958832E 00 
e1067277E OL 
oll 56114E OL 
»1067277E O01 
0 7958833E 00 
0 9998943E 00 
9998942E 00 
0 9998942E 00 


of I57990E 00 
elLO67164E O1 
oil 55991E O1 
olO67164E O01 
of 957991 00 
0 9998943E 00 
09998942E 00 
°9998942E 00 


o7957149E 00 
e1067051E O1 
oll 55869E O01 
oLO067051E 01 
0f957150E O00 
099989H2E 00 
09998943E 00 
© 9998943E 00 
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LABEL 


S1OVSIR 


CYVCre! 


os a 


i 
2 


50 


100 


DIMENSION SIGD(30) sC(30) sKTRL(30) sKMDC (30) sPATH(30) » 


16(30930) sGSLP( 309230) sGCRV( 30930) sGTAU( 320530) 


2B (339300) »NXX(150) sLID(3) 9D(39200) sNTS(200) 9S(30) » 
Bone] (200) 53601340) sFLXA( 30) »sKEXK 30) s EXB( 30 teeeXC (50) > 


ome ( 1 500 BGA (250) 98381250) 

COMMON NTIYPsNoeNT sNSTP»MHOM sMODC sNMEMsNCOT oNSRC 9 
IMODR sMITNeNDET sLISsJSC sKPARA s KPARBsNSPsNSPD 9 
ZKSRC »oMLIMsKTSS sKTDEP sKMI As KXXA sKXXB 9K XXC 9KXXD 9 


2KXXE sMAsNPAGs INDX es IPASSsNSCesNSDsLIMsKFL sARGUsAF oBF 5 
4CF sDF sWDsSPDsCONV sEIGAsTSRCsTMITNsEIGBsQUANsTSsDLTXs 
5SIGDMsSIGDeC eK TRL sKMDC3sG s9GSLP »sGCRV sGTAUsBeNXXsLIDeDs> 


6NTSsSsSRCI »sBEQsFLX o9KEXA SEXBsSEXCSEXD9E3A9E3B 
FORMAT{ 15) 

FORMAT (4E16e9) 

Riemer = SA 1) se f=12250) 
Pe Zee eSshti)stl=1+250) 
READ 1+sNPROB 

CALL READ2 

CALL CONTRL 
NPROB=NPROB-1 

IF (NPROB) 1009100350 
ene ECT 

END 


ml SS 
LABEL 
SUBROUTINE SOURCE 


DUMMY SUBROUTINE -—- TIME DEPENDENT SOURCES. 


RETURN 
END 


ee ome) 
LABEL 
SUBROUTINE TDEP 


DUMMY SUBROUTINE -- TIME-DEPENDENT PROPERTIES.» 


RETURN 
END 
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SUBROUTINE READ2 


SUBROUTINE READS IN AND PRINTS OUT INPUT DATA FOR 
A PARTICULAR PROBLEM. 


DIMENSION SIGD(30) 9C(30) sKTRL (30) sKMDC( 30) sPATH(30) 9 
1G6(320930) sGSLP( 30330) sGCR*‘ (30930) sGTAU( 30930) s 
28 (339300) sNXX(350) sLID(3)2D(39200) sNTS(200) 9S(30)s 
3SRCI (200) »-BEQ(30) sFLX(30) sKEXA(30) sEXB(30) sEXC( 150) » 
GEXO0(150)sE3A(250) sE3B(250) 

COMMON NTYPsNsNT sNSTP»MHOM sMODC sNMEMsNCOT sNSRC 9 
IMODR sMITNoNDET sLIS9 JISC sKFARAs KPARBsNSPoNSPD 9 
PKSRCsMLIMsKTSS sKTDEP sKMIAsKXXA 9K XXB 9K XXC 9KXXD 9 
2KXXE sMAsNPAGosINDXs IPASS eNSCeoNSDsLIMsKFL sARGU SAF oBF 9 
4CF sDF sWD»SPDsCONVsEIGAsTSRCsTMITNsEIGBsQUANsTSsDLTXs 
5SIGDMsSIGDsC sKTRL»sKMDC 9G »GSLP sGCRV sGTAUsBaNXXsLIDoDo 
6NTSeSeSRCI sBEGQ sFLAsKEXA sEXBsEXCsSEXD9FE3A9E38 

FORMAT(9I5) 

FORMAT (6E12¢5) 

BORMA Tae2E 126159 

FORMAT(315) 

FORMAT(1H1s5X6H TOVSRs3X8H PROBLEM 139 
132X4H RUN I1393X5H PASS 1395X5H PAGE 14) 

8 FORMAT(1HO0920X%919H INITIAL INPUT DATA/) 

9 FORMAT(1HO94X7H NIYP =13°97X4H N =1396X5H NI =139 

14X7H NSTP =1394X7H MHOM =13//5X7H MODC =13s 
24X7H NMEM =1394X7H NCOT =1394X7H NSRCE =139 
34X7H MODR =13//5X7H MITIN =1592X7H NDET =13> 
Aoxee pos  5SXGr. SSCP 15+ SXSGH PKPARA =13// 
54X8H KPARB =1395X6H NSP =1493X7H NSPD =I14s 
63X7H KSRC =1493X7H MLIM =I4//5X7H KTSS =14¢9 
7T2X8H KIDEP =[1493X7H KMIX =1493X7H KXXA =I4// 
B5X7H KXXB =1493X7H KXXC =][]4s3XK7H KXXD =14) 
MOmRORMAT(IAO6s5X5H WD =6£12.59313H™CENTIMETERSe» 
1946H SPOmeG72 .-5590H OMe /SECe/S1LOXTH CONV =E12-5> 
QiIOXTH EIGA =E12465313H INVERSE SECe//5X7H TSRC =E12e5s 
29H SECONDS ee7AB8H ITMITN =E12-5939H SECONDS.) 
1] FORMAT CIHOs4HRGNe 294X7H Bll 91)97X5H S(1)95X8H SIGD(I) >» 
132X5H ClI)s2X8H KMDC(I)9SH KTRL(I1)) 
12 FFORMAT (94 92X90 2ZE136552F 1006 91492X15) 
13 FORMAT(1415) 
17 PORMAT¢En2.5) 
MA=1 
NPAG=1 
INDX=1 
IPASS=1 
READ 1sNTYPsNoNTIeNSTP»sMHOM sMODC sNMEMsNCOT »9NSRC 9 
1IMODR sMITNsNDET sLISsJSC sKPARA sKPARB a NSP oNSPD » 
2KSRC »sMLIMSKTSS sKTDOEP sKMIX 9K XXA 9KXXB SK XXC 9K XXD 
READ 2sWD>sSPDsCONVsEIGAsTSRCsTMITN 
QUAN=N 
NM=N=-1 
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GO TO (1019102) »MHOM 
| Cc 

C HOMOGENEOUS REACTOR 

a 


101 REBW® 32sS51GD(1) C1) 
DO 20 T=29N 
KTRL(1I)=0 
SIGD(1)=SIGD(1) 

20 C(l)=C(1) 
KTRL(1)=1 
KTRLON)==1 
GO TO 106 


INHOMOGENEOUS REACTOR. 


OVE) 


mo? emer? > (Si GD) se (1) sT=19N) 
mb) 133s UK TRU) )sl=1sN) 
LOG Te (RMaee 1 865 1065107 


KMDC(J) SPECIFIES WHA, APPROXIMATION IS fO BE USED IN 
THE SOURCE REGIONs Je FLAT APPROXIMATION FOR KMDC(J) 
=l»s SLOPE CORRECTION FOR KMDC(J)=2s SLOPE AND 
CURVATURE CORRECTIONS FOR KMDC(J)=3-6 


ia a Ue Wl as 


107 READ 13% (KMDC(I)»sT=19N) 
COMO” 1:63 

moeDO 21 |=teN 

21 KMDC(T)=MODC 

Rese VNDET yw 110 +170 04 


DETECTOR LOCATIONS WHEN DETECTORS ARE USED. 


CY EVO) 


foe Rew 5S. (LDC ID) »1D=1>sNDET) 
mee GOPTO (60+50)sMODR 


Tee IMUM GOLLISION CROSS SECTION EXPECTED FOR CASE OF 
i Mie DE PENDEniteec OLLI STON CROSS=SECT RONs SIGD(I). 


CY OR CY 


50 READ 179SIGDM 
60 GO TO (120%11191119120) »NMEM 


INITIAL MEMORY INPUT. 


Cyr 


iiepeReap 29(BC1s1)sT=12sN) 
120 GO TO (125912591309130) eNSRC 


SOURCE DISTRIBUTION. 


NOX 


Peow READ 29(5(1] ) sal=15N) 


‘a PRINT OUT INPUT DATA. 
130 PRINT 7s NTYPsINDXsTPASS »NPAG 
NPAG=NPAG+1 
PRINT 8 
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KOK 


MOAOA 


CV ORY OVO 


CY CVCY OY 


PRINT 9sNTYPsN sNT sNSTPsMHOMsMODC sNMEMoNCOT 9 NSRC 9 
1MODR sMI TN eNDET »9LI%9ISC sKPARAs KPARB sNSPsNSPD 9 
2KSRC sMLIMsKTSSsKTVEP sKMI X 9K XXA 9K XXB9KXXC sKXXD 

PRINT 10sWDsSPDsCONV sEIGAs TSRCsTMITIN 

PRINT 11 

PRINT 129(TsBl¥91)9S(T)sSIGD(1L)9ClI)sKMDC(I)> 
IKPRE CI) sl sN) 

RETURN 

END 


LIST8 
WABEL 
SUBROU T PNEV CONTRI 


THIS SUBROUTINE CONTROLS PROGRAM FLOW FOR FIVE BASIC 
PReeLEM@RYPESs IDENTIFIED BY THE VALUE OF NTYP. 


DIMENSION SIGD(30) 9C(30) s9KTRL(30) sKMDC(30) sPATH(30) » 
16130230) sGSLP( 30930) sGCRV( 30330) sGTAU(30 930) 
2B 033 9300) »NXX(150) sLI1D(3)2D(39200) sNTS(200) 9S(30) » 
3SRCI (200) »BEQ(30) sFLX(30) sKEXA(30) sEXB(30) 9EXC(150)>5 
“EAD( 150RM ESA(250) -E3Be250) 
COMMON NTYPsNsNToNSTP »sMHOM sMODC »sNMEMsNCOT sNSRCo 
LMODR sMITNeNDET sLISsJSCsKPARAsKPARB sNSPoNSPD » 
2KSRC sMLIMsKTSS sKTDEP s9KMIXsKXXA SKXXB9KXXC 9KXXD 9 
2KXXE sMAsNPAG sINDX sIPASS shi SCesNSDsLIMsKFL sARGUSAF sBF 5 
4CF sDF sWDsSPDsCONVsEIGAsTSRCsTMITNsEIGBsQUANsTSsDLTXs 
BESIGDMsSIGDsC sKTRL sKMDC 9G sGSLPsGCRV sGTAUsBoNXXsLIDoDs 
6O6NTSsSsSRCI sBEQ sFLX s9KEXAsEXBsEXCS EXD 9£ 3A 5E3B 

13 FORMAT(1415) 

Mme FORMAT(E12-5/(6E12.-5)) 
GO TO (1003200330034003500)  »sNTYP 


SeNerAlL PROBLEM. FOR NT GREATER THAN 1s THE 
TRANSFER PARAMETERS REMATI. VALID FOR ADDITIONAL 
PROBLEMS WITH CHANGING SOURCESsC(I)sREACTOR SIZEs ETCe 


100 CALL TPARA™M 

INDEX=1 
moe CAUL TCAUEC 

INDEX=INDEX+] 

IF (NT=INDEX) 100091019101 
POl “GAL READ2 

SO WO 702 


HOMOGENEOUS REACTOR»s COMPUTATIONS FOR NT DIFFERENT 
WALUES OF Ne 


200 CALL TPARAM 
CALL TCALC 
INDA=INDX4+] 





CYC merry CY CY 


CYR CY CY CY CO) 


CY CY CYOVO 


20) 


300 


B0'] 
BZ 


400 


40] 


500 


1000 


IF(NT=INDX) 100092015201 
N=N+NSTP 
GO 10 20:0 


SUCGEoof oe  TNeerTAL "SOURCE PROBUEMSs WHER: SOURCE IS 
ECG AieE D OMONEGEREGHONSAh DS LASTWS ROR JSC TIME 

STEPS»~ NITYP=3 IS USEFUL FOR IMPORTANCE DISTRIBUTIONS 
Pero FAO TRANSTENTS. THE KEXAC(I) ARE THE 

Spe lie Bhs SOURCE R=GIONS FOR SUCCESSIVE RUNS. 


PADS SPOR Ateleeet = DeNT 5 
CALL TPARAM 

KZA=NSRC 

DOr 302 wren 

S17 =0,0 

L=KEXACINDX) 

eis = bt 

SVP y=a7 0 

CALL TCALC 

NSRC=KZA 

INDX=INDX+]1 

IF (NT-INDX) 1000330153012 


PROBLEM WITH TIME-DEPENDENT PROPERTIES WHICH ARE READ 
Peet hime OF EACH CHANGE. NT IS THE NUMBER OF 
SUCCESSIVE “SETS OF PROPERTIES TO BE SREAD INePEACH 

SE! Witt LAST UNTIL TMITN SECONDS. 


CALL TPARAM 

MITN=TMITN/TS 

CALL TCALC 

MPASS=1PASS+1 

IF (NT=-IPASS) 10009401 240] 

READ 16e9TMITNs (SIGD(I) »Cll)sIT=19N) 
READ 139 (KTRL(I)sIT=19N) 

Go. 107400 


TIME-DEPENDENT PROPERTIES ARE CONTROLLED OR COMPUTED BY 
A USER=WRITTEN SUBROUTINES TDEP. (SIMPLE FUNCTIONS 
OIeeIPeME »sFEEDBACK s ETC. } 


Gael I DEP 

CALL TPARAM 

MITN=TMITN/TS 

@ALL TGALC 

IPASS=]PASS+]1 
IF(NT-—IPASS) 100095003500 
RETURN 

END 
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Veber Qlag 

Vhs ea? house 

ALF ieve Vs 

Laer: sth 

‘wees tale 

‘ i 7f.. i. ta? ea? 
toue 


OK 


Cerro CN TY 


Cx ) 


ia ea a a 


LisTs 
LABEL 
SUBROUTINE TPARAM 


Ta owoeeBROUTINE CONVERTS THE INPUT DATA TO THE 
TRANSFER PARAMETERS WHICH WILL BE NEEDED IN THE 
BIRTH RATE COMPUTATIONS IN SUBROUTINE TCALC. 


DIMENSION SIGD(30) »€(30) »KTRL (320) sKMDC(30) sPATH(30) » 
16(30930) »sGSLP( 30230) sGCRV(‘ 305 30) sGIAU(30930)s 
2& (339300) »NXX(150) »9LID(3)9D(32200) sNTS(200) 9S(30) 9 
3SRC1 (200) »sBEQ(30) »sFLX(30) sKEXA(30) 39EXB( 320) 9 FEXC(150) 9 
Sea (ee) sE3A( 250) sE38( 250) 
COMMON NTYPoeNoeNT sNSTPsMHOM sMODC sNMEMsyNCOT sNSRC 5 
1MODR sMITNeNDET sLISsJSC sKPARAsKPARBsNSP2sNSPD 9 
2KSRC»sMLIMsKTSSsKTDEP sKMIXsKXXA sKXXB 9K XXC o9KXXD 8 
3KXXE sMAsNPAGsINDXsIPASS»sNSCsNSDsLIMoKFL sARGU AF so BF 9 
4CF sDF sWDsSPDsCONVsEIGAsTSPCsTMITNsEIGBsQUANsTSsDLITXs 
SBSIGDMsSIGDsCsK TRL sKMDC 3G sGSLP»GCRVsGTAUsBeNXXsLIDsD> 
6ONTSeSsSRCI »BEQsFLXsKEXASEXBsEXCEXD9E3A 9 E3B 
1 FORMAT(1H13s3X6H TOVSR»s3X10H PROBeTYPE 13s 
132X11H RUN NUMBER 13533X12H PASS NUMBER 13593X5H PAGE 13) 
2 FORMAT(1HO0s15X36H CALCULATED INPUT PARAMETERS FOLLOW./ 
ly er weer = TSR SXTH MITN =P6/7IOXK7H DLTX =E14Se7> 
pmo) 15 =E1467//7/5X9H TOMALL =B=E14e732Xs5 
ot UNWelS OF MBL IXes5X6H LIM =885///10X8H SIGDM =E12<5;5 
PoxGH JSC =l[5>s10X9H KSMALL =137/7/5X4HRGNe »5SXBH PATH( 1) // 
pete 1 36 3X9F 1266) ) 
3 FORMAT(1HOs20X23H MATRIX G(I92J) FOLLOWS e//2H 1220X»s 
116H MATRIX ELEMENTS ) 
PeeorMAT THOsZ0AZ26H MATRIX GSLP([>J) FOLLOWS, // 
P2rees Z0X316H MATRIX ELEMENTS ) 
6 FORFMAT(1HOs20X26H MATRIX CCRV(ITsJ) FOLLOWS. // 
12H 1220Xs16H MATRIX ELEMENTS ) 
7 FORMAT(1HOs20X26H MATRIX GTAU(CI»J) FOLLOWS. ay 
12H Is20Xs16H MATRIX ELEMENTS ) 
meme elt 13e6r126//5X6F1i2el//TX6FIl2Z2¢f/9X6F 1 l2ef/LIX6F1Ze7) 
QUANEN 
DLTX=WD/QUAN 
NM=N—1 
NM2=N-2 


MEAN FREE PATHS ACROSS REGION Ie 


POe72 T=isN 

roid | )=o!lGD( I peDLTX 

GO TO (15922) sMHOM 
22 CONTINUE 

So. 10 210 


HOMOGENEOUS REACTORe 


mee 200 T=25N 
200 PATH(1)=PATH(1) 


ae eee 
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2 Jig 


gle 


750 


800 


820 


STORE NUMBER OF MEAN FREE PATHS BETWEEN REGIONS I AND Je 


DO 211 J=1lsNM 
G(IsI+1)=0.0 

DO 212 JT=1l1+sNM2 

TP2=!1+2 

DO 212 J=IP29N 

GlIlesJ)=G(I sJ—-1)+PATH( J=-1) 
I[A=0 


START AND REENTRY POINT FOR RECEIVER REGIONS» IAc 


TA=IA+1 

PIT=PATH(IA) 

ARGU=P] 

Chel TABLE 

FS=AF 

Palos BF 

P.lS=CF 

Po OSs Or 

G(IAsTA)=1-e0~-(0.5-F10)/PI 

GTAU( IAs IA) =(] -O+F54+(2.-0*F10—-1.0)/PI)/(PI*G(IASIA)) 
GervtUteeiAy=(=05,54F10) /(6.0*PI )4+(1.043.0%F 15) 7 


103008 PT ¥*2 )4+(-02542-.0%*F20)/ (PL #*3 ) 


Stan OF LOOP "POR SOURCE REGIONSs JA. 


JA=TA+1 
PU=PATH(JA) 
ARGU=0.0 


ct 60 


FH=0e5 
Btn 6 O75 6 0 
fo —- 0625 

com tO 620 
JA=JA+] 
PJ=PATH( JA) 
ARGU=G(TA»sJA) 
CALL TABLE 
FL=AF 

F6=BF 

mies CF 
F16=DF 
ARGU=ARGU+PJ 
a! ABE E 
F2=AF 

ey a 

eC 
Be = OF 
ARGU=ARGU+PI 
CALL TABLE 
Pa=AF 

F8=BF 

F13=CF 
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NADA AY 


F18=DF 

ARGU=ARGU-PJ 

GaLl TABLE 

Paps AF 

AS=BF 

F eee F 

FI19=DF 

X=F6—-F7+F8-FO9 

G Cees) =X/ (2-04 ) 

G(JAsTIA)=X/(2e¢0#PT ) 

2=JA-ITA-]1 

GTAUCTAsJA) H=(2eO0#F 3—-F2—-F44+P# ( FI-F24F2-F4))/X4+12e¢0/PI + 
11260/PJ 

GTAU(CJAs TA) =GTAU(TASJA) 

V=eF16-F1I74+F18-F19 

GORVUITAsJA) HX/(12-0# PU) -(FLIFF1L2-F13-F14)/(2¢0*PU*%2 ) + 
1 YH P Je 3 

GCRV(JAs TA) =X/(12-0#PI )—(F L1-F12-F134+F14)/(2.0*PI ¥¥2)+4+ 
1 Yet Pe tee 3 ) 

GSLP(IAsJA) =—-(F64+F 7-F8-F94+(2,.0/PJ) #(-FILI+F12-F13+F14))/ 
1(820*P.!) 

GSLP(JAs TA) =(F6—-F7—-F8B+F9O+(2.0/PATH( IA) )¥#(—-FIIL4+F12-F13 
1+F14))/(8e0*#PI ) 

JTF (N-JA) 82198215800 


COMPLETION OF JA LO)DPe 


ee) GO 10 (9003822) »sMHOM 
meer (N-TA-1) 823598235750 
823 IA=N 


PT=PATHIN) 

ARGU=PI 

CALL TABLE 

FS=AF 

F10=BF 

F1S=CF 

F20=DF 

eet esse) = 1. 0=( Oeaer 10)/PI 

BEAU TAs TAN=(1+0+65+( 2 OF 10-1.0)/P1)/(PI*G(ITAsTA)) 


GCRV(IAsTA) =(-O025+F10)/(6-.0*PI )+(120+3.0*%F15)/ 
L(BeORPT¥H#2 4+ (—0054+260%F20)/ (PI ¥#3S | 
GO TO 690 


Serre ecerren OF IA LOOP. 


HOMOGENEOUS REACTOR. 


900 DO 910 T=25NM 


GlIsI)=G(llol) 
STAUCTsI)=GITAU(1 91) 
GCRV(IsIT)=GCRV(191) 
TP=T+1 

DO 910 J=IPoN 
L=J-1+] 
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Gil = Gt ls L ) 
G(JoI)=G(L5i) 
GTAUCT»sJ)=GTAU(1 oL) 
GTAU(JsIT)=GTAU(L91) 
GCRVCT»sJ)=GCRV(1 oL) 
GCRV(JsT)=GCRV(L 91) 
GSLP(IsJ)=GSLP(1sL) 
510 @ser( Js) =GSLP(t»o1) 
G(N»eN)=G( 191) 
GTAU(NsN)J=GTAU(C1 91) 
GCRV(NeN)=GCRV( 191) 


COMPUTATION OF UNIT TIME STEPs TS SECONDS. 


690 GO TO (3099430)  »MODR 
430 ARGU=SIGDM*#*DLITX 
All TABLE 
Ser 
feo] 6 F 
X=1-0-(02.5-F10)/ARGU 
P=(1-0+F5+(2.0#F10-120)/ARGU) /(ARGU*X ) 
KSMALL=1e¢O0/P + 120 
X=KSMALL 
TSMALL=1¢0/X 
ee 10° 325 
309 K=] 
Ono 2O f=Z2aN 
IF (GTAU(L sL)-GITAUCKsK)) 321093209320 
310 K=L 
B20 CONT INUE 
TSMALLEGTAU(K sK) 
KSMALL=1-eO/TSMALL + 1-20 
aez> OO 330 J=l14N 
woes sO J=lsN 
SeeeeGliAU( Teey=GIAUCTsJ)/TSMALL 
RO 340m] =1 oN 
240 GIAO 1s 1 ))=GIAU (Is 1 )+1S0E-08 
its=TSMALLEOLIX/SPD 


COMPUTATION OF LIMs AN INTEGER GREATER THAN OR EQUAL 
Moee NUMBER OF TIME STEPS FOR WHICH MEMORY I5 
REQUIRED. 


LIM=N*¥K SMALL 

IF (MLIM) 34453445343 
343 LIM=MLIM 
peeeemtrt JOC) 35033509360 
850 wSC=tSRC/TS 


PRINT OUT PARAMETERS.» 
360 GO TO (51260) sKPARA 


51 PRINT J »oNTYPsINDXsIPASSoNPAG 
NPAG=NPAG+]1 
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aaa rrr - 


a a 


OK 


CUO OreY Cel Cy OC) 


BZ 


55 


54 


28, 


Sie) 
60 


PRINT 2sNeMITNsDLTXsTSsTSMALL sLIMsSIGDMs JSC sKSMALL » 
LCT sPATH( I) sI=l15N) 

GO TO (52:60) sKPARB 

PRINT LeoNITYPsINDXsIPASSsNPAG 
NPAG=NPAG+]1 

PRINT 3 

DO 53 I=l1oeN 

PRINT 105 Is(GlIsJ) sJ=1l9N} 
PRINT 1eNTYPsINDXsIPASSsNPAG 
NPAG=NPAG+]1 

PRINT 5 

DO 54 [=1>5N 

PRINT 105 Is(GSLP(IsJ) sJ=15N) 
PRINT 1teNTYPsINDXsIPASSsNPAG 
NPAG=NPAG+1 

PRINT 6 

DO 55 JT=1>N 

PRINT 10sIs(GCRV(IsJ)sJ=l9N) 
PRINT 1lsNTYPsINDXsIPASSsNFAG 
NPAG=NPAG+1 

PRINT 7 

DO 56 JT=19N 

PRINT 105 Is(GTAUC(C IJ) »sJ=l1 oN) 
RETURN 

END 


ies Ts 
Laore 
SeBROUTINE TABLE 


Peo SUBROUTINE USES THIRD-ORDER POLYNOMIAL INTER- 
POWATION® TO DETERMINE THE VALUE OF THE THIRD ORDER 
EXPONENTIAL INTEGRAL» BFH=E3(ARGU)» WHERE THE 
PROUMENT EIES BETWEEN TABULAR VALUES. RECURSION 
Bere PONS ARE IPEN USED TO DETERMINE E2CARGU) » 
E4(ARGU) AND E5 (ARGU). 


DIMENSION SIGD(30) sC(30) st TRL (30) sKMDC(30) sPATH(30) 9 
16(30930) »sGSLP(30230) sGCRV{ 30930) sGIAU(30930)s 
2B (332300) »NXX(150) sLID(3)2D(39200) sNTS(200) 95(30) 9 
3SRCI (200) »BEQ( 30) s=LX(30) »9KEXA(30) s3EXB(30) sEXC(150) > 
SarDOTPSO) »B3A4 25079E3B( 250) 

COMMON NTYPoeNsNTsNSTPoMHOM sMODC»sNMEMsNCOT sNSRC 9 
IMODR sMITNsNDET sLISsJSC sKPARAs KPARBsNSPoNSPD 9 
Z2KSRCsMLIMsKTSSsKTDEP sKMIXsKXXA s9KXXB9KXXC sKXXD 9 
2KXXE sMAsNPAGs INDX 9 * PASS sNSCeoNSDsLIMsKFL s ARGU SAF 5 BF 9 
4CF sDF sWDsSPDsCONVsc IGAsTSRCsTMITNsEIGBsQUANs TS sDLITXs 
SSIGDMsSIGDsC sKTRLsKMDC»sG?GSLPsGCRVsGTAUsBsNXXsLIDoeDs 
BNTSsSsSRCI sBEQoFLXeKEXASEXBsEXCSEXD 9E3A 9E3B 

IF (ARGU=20e1) 20310910 
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Ta 
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te 





ere y cy 


ge 


MOON 


ARGU GREATER THAN 20e¢1s INiIEGRALS ASSUMED EQUAL 
WD Zee Re 


10 A Fei@%. 0 

BF=0.20 

CRO. 0 

DF=0.0 

we 10 1000 
20 Q=EXPF(-ARGU) 

Pe eteotnoU—-264/99) 30930960 
30 IF (ARGU= 040100) 403940;5C 


ARGU LESS THAN 0601 e« 
40 X=ARGU/0.-01 
LESS=0 
BY=0«5 
cor OMS 5 


ARGU BETWEEN 0401 AND 244/799. 
50 P=ARGU/0.01 
LESS=P 
A=LESS 
X=P=-A 
Bee ESACLESS) 
a eae EF OAM LESS+1)=CY 
Bae E SACLE SS+2 )—BY)72.0 
pro=4 ESA CEE SS+3)=-BY) 7/300 
SO 10 70 


ARGU BETWEEN 244799 AND 2061 « 
60 P=ARGU/0.10 

LESS=P 

A=LESS 

X=P—A 

BY=E3B(LESS) 

B21=E3B(LESS+1)-BY 

BZ22=(E3B(LESS+2)-BY)/200 

BZ3=(E£3B(LESS+3)-BY)/300 


COMPUTATION OF POLYNOMIAL COEFFICIENTS. 
79 B@S= (B234BZ21)72.0 - BZ2 
BC2=BZ2-821-3.0*BC3 
pea =BZ1=8I@2-BCS 
BF=BY+X*(BC1+X*(BC2+X*(BC3))} 


RECURSION RELATIONS FOR EXPONENTIAL INTEGRALS OF 
€ 2DERS 2949 AND 5e 


AF=(Q-22e0*BF )/ARGU 
CF=(Q-ARGU*BF)/3.0 
DF=(Q*¥(1.0—-ARGU/3 .0)+BF#ARGU¥#2/3.0)/440 


1000 RETURN 


END 
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LukeSele8 
oy ce i 
SUBROUTINE TCALC 


THIS SUBROUTINE SOLVES THE PROBLEM POSED AND PRINTS 
OUMITIE RESULTS. 


DIMENSION SIGD(30) 3C(30) s9KTRL(30) sKMDC( 30) sPATH(30) 5 
16(30930) sGSLP (30530) sGCRV( 30s 30) sGTAU( 305330) » 
2B (339300) »NXX(150) sLID(3)9D(39200) sNTS(200) 3S(30) 9 
3SRCI (200) sBEQ(30) sFLX( 30) sKEXA(30) sEXB( 30) sEXC(150) 5 
ment 150) sES3ACZ50 ye 3B( 250) 

COMMON NTYPoNoNT »sNSTP »sMHOM sMODC sNMEM yNCOT »NSRC 5 
IMODR »MI TNs NDET sLISe2JSC sKPARA s KPARBsNSPsNSPD 5 
ZKSRCsMLIMsKTSSsKTDEP sKMIXeKXXA sKXXB 9K XXC 9KXXD 9 
3KXXE »sMAsNPAGs INDXsIPASSsNSCeNSDsLIMoKFL sARGUsAF sBF 2 
4CF »DF sWOsSPDsCONVsEIGAsTSRCsTMITNsEIGBsQUAN sTSsDLTXs 
SSIGDMsSIGDsC sKTRL»sKMDC sGsGSLPsGCRVsGTAUsBsNXXsLIDsDs— 
6BNTSsSeSRCI sBEQsFLX sKEXA sEXBs EXC sEXD9E 3A 93E 3B 

1 FORMAT(1H1s5X6H TOVSR»3X8H PROBLEM 12,5 
13X4H RUN 1393X5H PASS 1395X5H PAGE I[4) 

2 FORMAT(1HOs20X18H TRANSIENT RESULTS) 

3 =ORMAT(IHOs9OHTIME STEPsI5s4113/7H REGION/ 
3+ 4Xs5E13.7)) 

4 FORMAT(1HOs20X20H CONVERGENCE RESULTS) 

5 FORMAT(CIHO>s5X7H NCOT =12910X6H NCN =I 2910X6H NSC =I15// 
110X8H CONVB =E14-83s10X7H EIGB =E14e8) 

6 FORMAT(1HO/20X25H ASYMPTOTIC DISTRIBUTIONS//9H REGe NOes 
Mel TA BIRTH RATEs11X5H FLUX/( 169 7XF11-8372028) ) 

PT PemMATCLHOs2Z0A31HRESULTS CF LAST FIVE TIME STEPS// 
et See XH E13. FP) 

8 FORMAT(1HO0s20X26H DETECTOR RESPONSE RESULTSs 
L1OX7H NDET =12//13X7H SOURCEs8X11H DETECTOR 1s 
Pee 1lH DERECTOR 235X11H DETECTOR 3/79H LOCATION I8s 
Peeelo/lOH MIME STEP) 

9 FORMAT(1694E16e8) 


11 FORMATCIHOs9OHTIME INDX915594113/) 
12 FORMAT(1324Xs5E13-”) 


GO TO (1002300) »MA 


eeo GQ TO (2652151) »MODR 
meomom TO (200022010) «KISS 


momma | EADY STATE PROBLEM. 


2010 LIM=4 


SET UP PROBLEM CONSTANTS. 


2000 LIMK=150-LIM 


LIMT=LIM+150 
LIMTP=LIMT+1 


ot 7 tok) | 
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CY Cee ie fa a 


oa i 


LIMP=LIM+1 
NM=N-1 
NNN=LIM+NSP 
N1=N+] 
N2=N+2 
N3=N+3 
NM3=N-3 
NHALFHN/2 
NNB=0 
NSD=] 
NSC=0 


SET INITiAL MEMORY IN BUTI 9K)e 


GO TO (1109120%9130%3140) »NMEM 
MO DOw1l11 I=leN 
mt pti.) y=1.0 
m0 OOM 21 J=25LIM 
wemi7zt f=l13N 
m2) Ee isJ)=Bl(lIs1) 
GOMRO P50 
moO X-FIGASTS 
R=1eO0tX¥ (1 eOFXK (Oe Dt+X¥ (Le 0/6 ec OtX% (100/24 e04+ 
Wee 11 6071 206.0+X( 10/7 720.04X/5040.0)))))) 
DOrls Te J=2sLI1M 
Kl=J-1 
DO 131 IT=l15N 
me] Bt I[sJ)=R*¥B( I oK1) 
Go WO 150 
140 DO 141 I=l16N 
me) ee l>1)=1.0E-25 
GOeTO 120 


CLEAR REMAINDER OF B(IsK) ARRAY. 


moo DO mr Jt] MPs 300 
Der li9el=alsN3 

IVS x07 5)=0.0 

151 K=LIM 


COMPUTE™BIRTH RATE DISTRIBUTION AT TIME STEP NSC. 


oe PoOCPNSCr!l 
KFL=K 
K1=K 
K=K+1 
KTWO=K4+150 


Peeree DNSITRIBUTION AT TIME STEP NSC. 


Pee (160s bo 55°157) sNSRC 
ier (JSC-NSC) 15591605160 
meme DO 156 J[=15N 


“== Get 


LE 
of 


ae | 
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eal 





NSRC=1 
GO 1TO 460 
157 GALE SOURCE 
10 GOGO 2 220%) 2290) sK TSS 


c TIME=DEPENDENT PROBLEM. 


me Ger TO (222132222) »KTOEP 
ae? GALL TOGP 
2221 DO 961 I=l5N 
SUM=0-0 
DO 962 J=lsN 
T PeGTAU( Ie) 
KT=TT 
IF (KT-LIM) 97039623962 
970 TK=KT 
W=TT-TK 
WM=12e0-W 
MK =K-KT 
MKM=MK=1 
CO=WM¥R( JU 9MK)+W*B( J oMKM) 
KAK=KMDC(JU)=-2 
IF (KAK) 97759715:971 
ol Te CKTRL(J)) 97359755974 
973 A2=WM*B(J-1 »MK)+W*B(J-1 »MKM) 
A3=WM*¥B(J-29MK) + ‘1#B(J=29MKM) 
Q=-1.-0 
GO TO 976 
974 A2=WM*¥B(J+19MK) + W#B(J+1l5MKM) 
AZ3=WM*B(J+29MK) + W*B(U+29MKM) 
G= 16 0 
976 C1=QO*(4e0*A2~-3-40*C0-A3 ) 
C2=(A3+C0)/2.0-A2 
G® TO 977 
975 A2=WM¥B(J—-19MK) + W*B(J—-l>MKM) 
A3=WM¥R(J+19MK) + W¥R(J415MKM) 
C1=A3-A2 
C2=(A3+A2)/220-CO 
977 CO=CO+WM*B (UJ »MK+150)+W*B (UJ »MKM+150) 
IF (KAK) 97859793980 
978 SUM=SUM+G(IsJ)*CO 
| GO TO 962 
| 979 SUM=SUM+G(I9J)*CO + GSLP(] 2J)*Cl1 
| GO TO 962 
| 980 SUM=SUM+G(IsJ)*CO + GSLP(I5J)*C1l + GCRV(I9J)*C2 
962 CONTINUE 
Bil sKTWO)=S(1) 
Qe Bt 1sK)=C(1)*SUM 





SO FO 175 
C 
3 SIEADY STATES PROBLEM -- GENERATION STEP NSC. 
c 


fee) DO 2961 I=15N 
SUM=0.0 
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DO 2962 J=l1oeN 
CO=B (J se) 
KAK=KMDC(J)-2 
IF(KAK) 2977929713297) 
ee eee CS)) 29973 92975392974 
2973 A2=BlJ-15K1)} 
A3=B(J=-29K1) 
Q=-1.0 
SO TOr29 76 
2974 A2=B(J+1sK1) 
A3=B(J+29K1) 
Q=1].-0 
2976 C1=O* (420% A2-3-0*CO-A3) 
C2=(A3+C0)/220-A2 
Coe 297 T 
2975 A2=Bi(J-1sK1) 
A3=B(J+19K1) 
C1=A3-A2 
C2=(A3+A2)/2e0-CO 
mer y CO=CO+S(J) 
IF (KAK) 297892979#2980 
2978 SUM=SUM+G(I2J)*CO 
eom10 2962 
Z29m9 SUM=SUM + G(IsJ)*CO + GSLP(IsJ)*Cl 
GO TO 2962 
ee SU M= SUMPeGiepey *COme GSLP(TsJ)*C1l + GCRVIIsJ)*¥C2 
2962 CONTINUE 
2961 BCI sK)=C(I)*#SUM 
ee eee NDET) 17 7sl?lol/l 


Ss Rewer PM BETECTOR RESPONSES IF NDET GREATER THAN ZERO. 


171 NNA=NNP 
NNB=NSC/NSPD 
IF (NNB=NNA) 17791779145 
145 JD=0 
147 IF (NDET<-ID) 17691769146 
146 ID=ID+] 
LOC=LID(ID) 
DeeD ¢NSD Web wmOC eK )/(C(LOC)*STIGD(LOC)) 
GO TO 147 
176 NTS(NSD)=NSC 
eeCI(NSD)=S(LIS) 
NSD=NSD+1 
me ANS D200) 177931773399 
399 NSDM=200 
JAD=1 
GO TO 400 
405 NSD=1 
mi errr (180517891 80) »NCOT 





DISTRIBUTION SPACE-TIME CONVERGENCE TESTS. 


CMG. 


180 R(N1sK)=B(19K)/B(19K1) 
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CWO 


MVAX 


B(N2 9K) =B(NHALF 9K)/B(NHALF 9K1) 
B(N3sK)=B(NM3 9K)/B(NM3 9K1 ) 
IF (NSC-LIM)17891785181 

TS1 VIEABSECBI(N2ZsK)=—B(N1 5K) ) 
Genny B=V 1 
Wet Vl—-CONV) 988251735178 

182 V2=ABSF(BI(N3 sK)=—B(N1] 9K) ) 
V3=ABSF(B(N1 9K)=B(N1 9K1) ) 
V4=ABSF(BI(N2sK)=-B(N25K1)) 
V5=ABSFIB(N35K)-—-B(N35K1)) 
CONVB=V14+V24V34+V4+4+'/5 
TP (CONVB=-CONV) 25095250,178 


CGMPLETION CHECKS. 


poets (MITNSENS@) 2002200:179 
Meir €150=-K) 18351835152 
183 GO TO (18591843184) »sNCOT 
184 KFL=150 

JAT=1 


PRINT OUT TRANSTENT RESULTS. 


60 NAF=NSCHKFL 
IF (KFL=NNN) 59952952 
52 DO 108 J=AaNNNosKFL eNSP 
mere MAX (J) =JS+NAF 
LLL=NNN 
23 il =0 
PRINT 1s NTYPsINDXsIPASS sNPAG 
NPAG=NPAG+1 
PRINT 2 
54 JUJ=aLLL+4*NSP 
MMM=KFL4NSP-1-JJJ 
PeeMMM) 56+ 56 » 50 
50 PRINT 3s(NXX(J) sJ=LLL»sJJIJ9NSP) » 
|e iteGB Gls) sJ=eLLis JJ »oNSP)»sI=1 9N3) 
Eei=eeeN SP 
IF(N-20) 515951553 
pei Ie) 55355553 
aot i lel 
GO TO 54 
Bor rE (KFL—WPL) 59,558,58 
58 PRINT ll s(NXX(J) sJ=LLL oKFL sNSF) 
DO 57 T=1,N3 
ewer | lee sees (BC fs) ss J=LLL »KFL » NSP) 
59 NAA=NSC/NSP 
NAB=NSP#NAA 
NAC=NSC - NAB 
NNN=LIM + NSP - NA® 
GO 10 al aie 265) seAi 
185 JAR=1 
KSL=LIMK 


‘7 eo 
‘7% 7 
» 











° r @ 


yy 





CY Cray 


NON 


Ova 


Briere) werk ey FILEEDs RESET FOR THE NEXT PASS. 


Z7f WO 186 J=lsL7™ 
meaK SE +S 
DO 186 I=15N3 

meer ols J )—ol Isl) 
Toole JQ=eLIMes 150 
DO 118 T=1+sN3 

Ors Pls) =0.0 
BO PO] J=151>.LIMT 
L=KSL+J 
DO 101 J=leN 

Poe i isJ)=8 (1 sL) 
Oem? J=LIMIPs300 
Pom O2 1 =1sN 

moe Btls) =0.0 
Sermo 61515285) sJA2 


te eet iee NOMbER oF TItE STEPS HAS BEEN REACHED. 
200 KFL=K 
NCN=2 
595197 760 
THe DISTRIBUTION HAS CONVERGED. 
250 KFL=K 
NCN=1 
Peewee) TO (26552615261) »5NCOT 
261 JAT=2 
co 1 60 


meeoO 10 (266%2703266) sNCOT 
COMPUTE AND PRINT OUT CONVERGENCE RESULTS. 


moo EPGB=_OGFI(B(N2sKFL))/TS 
Pil =KEFL+150 
Se Mi= 0. 0 
SUMT=0-e0 
DO 132 I=loN 
Bent eerily (Ctl )yeS1GD(1)) 
Go [OM 665365) sK ISS 
65 B(IsKFLT)=S(T) 
MempEQ(T)=B8ClsKFL)+B( I sKFLT) 
SUM=SUM+BEQ(I) 
132 SUMT=SUMI+FLX(I) 
SUM=SUM/QUAN 
SUMT=SUMT/QUAN 
DO 133 T=]4N 
PEQ(1])=BEQ% 1i7suUM 
moo FLX(1)=FLXICI)/SUMT 
KM7=KFL=—4 
PRINT Ls NTYPsINDXsIPASS sf 2AG 





Te 
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"ee 
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———s |e ene 
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NPAG=NPAG+1 
PRINT 4 
PRINT 5s NCOTs»NCNsNSCeoCONVBsEIGB 
PRINT 69( I sBEQCUI) sFLX(1)sT=1l9N) 
PRINT 19 NTYPsINDXsIPASS »NPAG 
NPAG=NPAG+1 
PRINT 4 
PRINT 7s(Ilo( Bi lsJ) s J=KM7 »KFL) »1=1l9N3} 
eo CONDE Tei 25 9275 9271 
271 NSDM=NSD-1 
JAD=2 


C PRINT®’OUT@DETECTOR RESPONSE READINGS.» 


400 JAAA=1 
JBBB=45 
B85 PRINT 1s NTYPsINDXsIPASS »sNPAG 
NPAG=NPAG+1 
PRINT Se9NDETekLISs(LIOCI)sI=1sNDET) 
IF (NSOM=-JBBB) 81581982 
81 JBBB=NSDM 
82 DO 83 J=JAAAsJBBB 
Be aPRINI 9sNIS( J) 9SRCI( J) s(O( Isd)s1=1>NDET) 
IF (NSDM~JBBB) 4015401584 
84 JAAA=JAAA+45 
JBBB=JBBB+45 
5 Oia 285 
401 GO TO (4053275) sJAD 
wee GO 10 (2859276).eMODR 


RESET INDICES AND MEMORY IN PREPARATION FOR ALTERED 
PROPERTIES ON THE NEXT PASC. 


PY Cmey CY 


276 MA=2 
NSD=1 
JAR=2 
MoL=KFL—LIM 
mo Ue te 
285 RETURN 
END 
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APPENDIX C 


THE FROGRAM SLBCEL 


The program SLBCEL is written in FORTRAN-II language for the IBM 
7094+ computer. Along with the MAIN program, nine subroutines are 
requireds READ1, READ2, READ3, CONTRL, PARAML, PARAM2, TABLEL, CLCMEQ 
and CLCITN. The functions of each subroutine are deseribed by comment 
statements in the program listings. The short MAIN program and the 
nine subroutines occupy 3865 (decimal) core locations. COMMON storage 


occupies 10849 locations, 


An input form is given in Section Cl. The input variables are 
defined in Section C2. The program output for a simple example problem 
is given in Section C3. Finally, the FORTRAN listings of the program 
are given in Section C4. Two versions of Subroutine PARAM are 
included. The first is the cell version which treats the boundary 
planes as perfectly reflecting surfaces; the second is the isolated 
reactor version which treats the boundary planes as non-reflecting 
surfaces. Only one of these versions should be included in the binary 


deck for a particular job. 





Cle 


Notess (a) 126 E,(p) data cards are read in before card No. O. 


Card 
No. 


0 


tw FF 


a ww YS GN oe NS 


(X) 


a & be 


SLBCEL INPUT FORM 


(bo) Input cards should be arranged in the order shown, 


(c) Numbered cards or sets of cards are mandatory for each 


problem; inclusion of alphabetically-designated sets of 


cards is conditional. 


(ad) FORTRAN II format is given in the brackets, 


Condition 


Variables to be Read 


NPROB 


Format 


LI5] 


Read the following for each problem to be solved on this job? 


race 


ca CES 


KMIX0 
NMEM=2 
NREAD=2 


NREAD=3 
NT>1 
and 


NSUC=!1 
NEWSRC=L 
Niltie2 


N,NREAD,NT,NSUC,MODC,KMIX,NRFL, NCLC, NMEM 


MITN,KPRNT1, KPRNT2,KPRNT3,KPNCH1, KPNCH2,KXXA, 
KXXB, KXXC 


TMULT, CONV 
(PATH(I),I=1,N) 
(C(I) ,I=1,N) 
(S(T) ,I=1,N) 
CHIR CL)y1=1,N) 


(KMDC(I) ,T=1,N) 

CeGia Loti) 
((G(I,J),J=1,N),I=1,N), 
((GSLP(I,J), J=1,N),I=1,N), 
((GCRV(I,d),J=1,N) ,T=1,N). 
CCPC ed) 1, N) eet N) 


Add the following cards for each additional 


run of this problems 


NCLC, NEWSRC ,NMEM, KPRNT3 
(C(I) ,I=1,N) 

(SCI) ,Te1,N) 

(B(i,1), I=1,N) 


[915] 


(915) 

[2812.5] 
[6212.5] 
[6E12.5] 
[6b 12551 
[i415] 

[1415] 

[6E12.5] 
eriie?|| 
[6F11.7] 
(6F11.7] 
[6F11.7] 


[4I5] 

[6E12.5] 
[6E12.5] 
(6E12.5] 


C2. 


DESCRIPTION OF SLBCEL INPUT VARIABLES 





Notes3 


NPROB 


/ 
f 
} 
{ 
| NT 


NSUC 


MODC 


iH 


ul 


i 


SS AS ee aa 


(a) Assignable values are enclosed in brackets. Where different 
values alter the logical flow of the program, the meanings 
are defined. 


(b) The variables are arranged in the order in which they are 


read into the computer by the program, 


INTEGERS 


No. of independent problems to be solved on this job. [= 1] 
No. of subregions , [4 = N= 40] 


Control variable for transfer coefficients, 

1 = Computes G, GSLP and GCRV in subroutine PARAM. 
2 = Reads arrays G, GSLP and GCRV from input data, 
3 = Reads array T from input data cards, 

4. Uses G, GSLP and GCRV from previous problem. 


No, of runs for this problem, [21] 


Control variable for secondary emission coefficients in 
successive runs. 
1 «= Reads new values of the C(I) for each additional run, 
if NT => 1. No changes allowed in approximation model 
or in locations of discontinuities (except for Model 4). 


2 = Uses the values of the C(I) used in the previous run, 


j! 
i 


Model F (Flat approximation). 
Model F5 (Slope correction). 
Model FSC(Slope and Curvature Corrections). 


WwW Wd 
q q 


(po) I eae 


O = Sets KMDC(J) = MODC for all J. 
O ~ Reads KMDC(J) for J=l, N. 





SLBCEL INPUT VARIABLES (cont'd) 


NRFL 


_NCLC 


NMEM 


| MTN 
_ KPRNTL 


| ~KPRNT2 


| KPRNT3 


_ KPNCHL 


z Number of double reflections to consider in computing the 
transfer coefficients G,GSLP and GCRV, if NREAD =1. 
=O - Program sets NRFL = 12.5/TPATH, where TPATH is the 


computed optical width of the half-cell. 


>O - Program uses the assigned value, 


= Control variable for solution method. 


1 = Uses Subroutine CLCITN to get iterative solution. 
2 - Uses Subroutine CLCMEQ to get non-iterative solution. 


= Control variable for setting initial trial distribution if 
NCLC = 1. 

1 « Sets B(I,1) = TMULT for all I. 

2 = Reads B(I,1) for I =1, Ne 

3 = Uses B(I,1) from previous run. Note that the solution 


iH 


I 


i 


distribution from CLCMEQ is stored in B(I,1). This 
solution can then be checked by iteration in CLCITN. 


Maximum number of iterations if NCLC = l. 


| 


| 
. 


th 


eo) t | 


ay 


tw 


iH 


Prints arrays G, GSLP and GCRV if they are computed in 
this problem, 


Does not print. 


Prints array T if computed. 


Does not print, 


Prints array H in CLCITN or array A = [I-H] in 
CLCMEQ. 
Does not print. 


Punched-card output of arrays G, GSLP and GCRV, if 
computed. (Formats 6F11.7) 


Does not punch. 


Us ss la eee [Sees Li —-) Jaa 











SLBCEL INPUT VARIABLES (cont'd) 


KPNCH2 = |1 ~ Punched-card output of array T if computed, 
| (Format: 6F11.7) 
2 — Does not punch. 
KXXA 


KXXB> = Dummary variables included in READ statement and program 
KXXC 


COMMON for user convenience in selective reprogramming. 

[any] 

NEWSRC = Control variable for source distribution in successive runs. 

1 - Reads new values of the S(I) for each additional run, 
af NI > 1. Source mist be continuous between assigned 
interfaces, 


2e« Yses the source distribution from the previous run. 


FLOATING POINT VARTABLES 
TMULT = Estimated value of cell miltiplication used in Subroutine 
CLCITN if NMEM = 1. 


CONV = Asymptoticity convergence criterion used in CLCITN. 
(Normally set equal to 107° or 107"), 


ARRAYS 


PATH(I) = Optical width of suoregion I in mean free paths parallel 


to the x-axis. 


C(I) = Mean number of secondaries per collision in region I. 
S(T) = External source rate in region I. 
PmRu(r) = Ja Property or source discontinuity at left edge of 


region I. 
O - No discontinuities at edges of region I. 


ol - Discontinuity at right edge of region I. 








SLBCEL INPUT VARIABLES (cont'd) 


KMDC(J) = |1 = Flat approximation for parent neutrons born in 
region J. (Model F). 
2 = Slope correction, (Model FS). 
3 = Slope and curvature corrections, (Model FSC), 
B(I,1) = Initial, trial birth rate in region I, The birth rate 
ineludes the external source rate, 
G(I,J) = Transfer coefficient for the unit flat made. 


GSLP(I,J) = Transfer coefficient for the unit slope-correction mode. 
GCRV(I,J) = Transfer coefficient for the unit curvature-correction mode, 


r(1r,J) = Combination of elements of arrays G, GSLP and 
GCRV formed according to the values of the elements of 
KTRL and KMDC, 
B(K) = CTB(K-1) +S . 





es —_ a 


C3. PRINTED OUTPUT FROM EXAMPLE PROBLEM 


Four runs were made in the example problem for which the printed 
output is given below, The input arrays PATH, KMDC and KTRL and the 
computed arrays G, GSLP, GCRV and T sre identical for each run, In 
Run 1, the non-iterative solution was found for the six. subregion 
system with the specified arrays C and 5S. In Run 2, the solution of 
Run 1 was checked by iteration. In Run 3, the value of the secondary 
emission coefficient in the fuel was reduced from 0.8 to 0.6. In Run 4, 
the source distribution in the moderator was altered. Total job time 
was 0.38 minute, of which only 6 seconds were used in the execution 


of this problem, 


SLECEL INPUT DATA RUN 1 PAGE 1 
N = NREAD = J NT = 4 NSUC = 1 
MODC = 3 KMIX = 0O NEFL = 0 NCLC =2 
NMEM = 3 MITN = 10 KPRNTIL = 1 KPRNT2 = 1 
KPRNT3 = 1 KPNCHIL = 2 KPNCH2 = 2 KXXA = O 
KXXB = KXXC = 0 


ESTIMATED MULTIPLICATION = 0. 


CONVERGENCE CRITERION = 1.00000:--07 


b-4 


KMDC(T) KTRL(T) 


a 
0 
ol 
al 
O 
ik 


On Fw Ne 
WI GS GI WW GW 


cm 


NRFL = 3 TPATH = 3.90000 





EXAMPLE QUTPUT (cont'd) 


Own FW Nn EF FH Nm FW Dn FF EF 


On FW DN - FH 


SLECEL TRANSFER COEFFICIENT ARRAYS 


0 48 594-7 
0 £23550 
o 111245 
0135641 
2032436 
o011181 


SLBCEL TRANSFER COEFFICIENT ARRAYS 


= e006048 
e004222 
» 000949 
» 000728 
«000116 
«000033 


SLBCEL TRANSFER COEFFICIENT ARRAYS 


=e001107 
~000846 
©000140 
000101 
0QO0C17 
» 0000044 


MATRIX G(I,J) FOLLOWS. 


0223550 
0373641 
176778 
0174938 
038269 
012823 


9 111.245 
176778 
» 348813 
0295210 
O51 545 
016410 


MATRIX ELEMENTS 


» 040692 
0052481 
0088 563 
620146 
2 160347 
2037770 


MATRIX GSLP(I,J) FOLLOWS. 


= 6007875 
= 000877 
» 005566 
002701 
2000379 
«000105 


=.002703 
= 2006530 
= .000284 
» 008571 
© 000749 
«000197 


MATRIX ELEMENTS 


= 6002545 
= 003583 
= 0007543 
= 000486 
oO12141 
»002016 


MATRIX GCRV(I,J) FOLLOW, 


» 000846 
~.001814 
-000761 
-000131 
0900020 
oM0000 5 


»000139 
e 000761 
= 001842 
o 600903 
» 000029 
2000008 


MATRIX ELEMENTS 


2000300 
»000490 
eO01L521 
= 9004697 
{0 calves 
600211 


RUN 1 


RUN 1 


RUN 1 


PAGE 2 
0009731 00033 54 
2011481 003847 
S 015463 ° 004923 
P 160347 © 037770 
.618080 .184898 
«184898 © 765208 

PAGE 3 

=.000505  =.000095 
=,000613 -=,000111 
ex ~000867 =e 000148 
=~@ 012203 we 001310 
2000353 =.010509 
BGG 5 Py oll aby 

PAGE 4 
00000 50 000014 
»000062 000017 
000094 °©000023 
6902175 o000211 

6004709 002327 
0002327 = = 002592 





ee 


EXAMPLE OUTPUT (cont'd) 


ON Wm FW NY EF FI 


Nin FW NY EF FI 


SLBCHL PARAMETERS 


o 509203 
Pe LA 
» L02076 
0139920 
0032492 
2011182 


SLBCEL MATRIX EQUATION SOLUTION 


RUN 1 


ARRAY T(1I,J) FOLLOWS. 


210290 
0416858 
01826 51 
0 LZ 381 
0035671 
012149 


0101249 
0151985 
0352106 
0 323488 
0054087 
o017082 


COEFFICIENT MATRIX A(I,J), FOR A°B=S, 


> 592638 
=» LO4102 
~e081661 
2 9 £39920 
@ 9032492 
= eQ11i82 


SLBCEL MATRIX EQUATION SOLUTION 


« » 168232 

9666 514 
HO 121 
oo L42381 
70035671 
@ 012149 


= 0080999 
2121588 

07 18314 
9 323483 
= 0054087 
017082 


PAGE 5 

ta] 0489 20 Ss 000436 

e 064018 =o 002978 
gee? ook wwe 0.1 5/ 5/7 
0631341 ° 165955 
ol EZo5/ a 708889 
0030032 o LN327 
RUN 1 PAGE 6 

FOLLOWS « 

» 9039136 2000348 
@e051214 » 602333 
=.090155 » 012606 
ra) 368659 ieee 16 5955 
=o 112957 e291 
~6030032 —, 1444327 

RUN 1 PAGE 7 


DETERMINANT OF COEFFICIENT MATRIX = .925321E.03 


PATH(T) 
» JOO00E 00 
o30000E 00 
oJO000E 00 
oLOOQOOE O1 
» LOOQOE OL 
oL Q000E OL 


CELL MULTIPLICATION = .35605E 02 


CCt) S(T) 
o80000E 00 .00000E 
o80000E 00 .Q00Q00E 
eSCO00E GO  .OCOO0OE 
elLQOQOOE O1 .1OQ000E 
olLOOOCE OL .1LOOOOE 


oLOQOOE OL 


o LOOOOE 


BIRTH RATE 
00 .3682532E Ol 
00 8 .3903945E O00 
OO A4LS5O4E O1 
Ol .2626546E 02 
Ol .3273977E 02 
Ol .3581L040E 02 


2005293 
«006769 
0011975 
~ 020967 
o LHI479 
813517 


= 004234 
00 F416 
~ 6009 580 
«6020967 
=e lt1479 

o 186483 


REL.» FLUX 
»6491763E 00 


e6882081E 00 


»7780361E 00 


o L068943E O1 
o1342861E OL 
014727758 O1 


EXAMPLE OUTPUT (cont'd) 


Om &F WwW NY FF FH 


SLBCEL INPUT FROM READ3 


SLECEL ITERATED SOLUTION 
ITERATION MATRIX H(I,d) FOR 


07362 
» 164102 
,081661 
139920 
0032492 
6011182 


SLBCEL ITERATED SOLUTION 


PATH(I) 
~30000E 00 
.30000E 00 
»30000E 00 
~10000E O01 
~10000E 01 
.10000E O1 


NCLC = 1 
NMEM = 3 


» 168232 
2 333486 
0146121 
o 142381 
0035671 
2012149 


» 080999 
5121533 
» 281686 
0 323488 
0054087 
e017082 


RESULTS 


RUN 2 PAGE 8 
NEWSRC = 2 
KPRNT3 = 
RUN 2 PAGE 9 
B=HB+S. 
0039136  =.000348 
0051214 002383 
) 090185 “=o 012606 
2631341 3165955 
0 112957 o 708889 
0030032 o 144327 
RUN 2 PAGE 10 


THE DISTRIBUTION HAS CONVERGED. 
CONVERGENCE LEVEL ATTAINED = .37253E-07 


NO. OF ITERATIONS COMPLETED = 5 
CELL MULTIPLICATION = 35.60520 

C(I) S(T) BIRTH RATE 
»80000E 00 .O0000E 00 ~  ,3682532E Ol 
eSQO00E 00 .QOQ000E 00) = .3903944E O01 
e80000E 00 §=.0Q000E 00 .A4135048 O1 
e10G00E O1 .1Q000E 01 .2626546E 02 
elOQOOE O1 .10000E 01 .3273976E 02 
eLOOOOE O01 .10000E O01 .35810H0E 02 


-004234 
-005416 
~009580 
«020967 
2 141479 
0813517 


REL. FLUX 


-6491763E 00 


e6882081E 00 
07780360E 00 
2 1068943E O21 
o1342861E O01 
01472775E OL 








EXAMPLE OUTPUT (cont'd) 


SLECEL ITERATED SOLUTION RUN 2 PAGE li 


RESULTS OF LAST FIVE ITERATIONS 


» 3682 532E O1 
03903944E O1 
oA413504H O1 


2 3682532E O01 
0 390394HE OL 
A413 5048 O1 


2 3082532E OL 
2 3903944E O1 
e441 3504E O12 
o2O26546E 02 .2626546E 02 .2626546E O2 .26265H6E 02 .2626546E 02 


us 

al meee 25o2r).0. 
LZ 

S, 

4 

5 63273977E 02 .3273976E 02 .3273976E 02 .3273976E 02 .3273976E 02 
6 

7 

8 

Y, 


03903944E O1 
A413 504E O1 


2 3682532E 01 
0 3903944E O1 
o4413504E O1 


o35810U0R 02 .35810H0E 02 .3581040E 02 .3581040E 02 .3581040E 02 
1.Q000COOOE 00 1.Q000000E 00 1.9000000EK 00 1.Q0000000E 00 1.Q000000E 00 
o LOOOOOOE O1 1.Q0000000E 0D 1.QQQ00000E 00 1.0000000E 00 1.0Q00000E 00 
e LOOQCOOE O1 1.Q0000000E 00 1,.Q0000000E 00 1.,0000000E 00 1.0000000E 00 


SLBECEL INPUT FROM READ3 RUN 3 PAGE 12 
NCLC = 2 NEWRC = 
NMEM = 3 KPRNT3 = 1 


SLBCEL MATRIX EQUATION SOLUTION RUN 3 PAGE 13 
COEFFICIENT MATRIX A(I,J), FOR AcB=S, FOLLOWS. 





I 
1 o69HN78 = 91261274 =.060749 =».029352 .000261 -,003176 
2 123076 749885 -,091191 =.038411  .001787 ~=.004062 
3 061246 == 109591 =. 788735 == 067639 = 009454 = =» 6007185 
bo 1399200 = 1423810 323488 =o 368659 = => 16.5955 = = 020967 
5 0032492035671 == 054087 = = 112957 29111, ==. 141479 
6 «011182 =.012149 -.017082 -.030032 -.144327 186483 


EXAMPLE OUTPUT (cont'd) 


OW nN SON Ne eS 


SLBCEL MATRIX EQUATION SOLUTION RUN 3 PAGE 14 
DETERMINANT OF COEFFICIENT MATRIX = ,213634E-02 


CELL MULTIPLICATION = ,.24662E 02 


PATH(I) C(I) S(I) BIRTH RATE REL. FLUX 
»30000E 00 .60000E 00 .0000CE 00 .1284958E 01 «04681764 00 
»30000E 00 4.60000E 00 4 .00000E 00) «=o 1H30717E O1 = 6 521 2840-00 
.30000E 00 .60000E 00 .Q0000H 00 .1784321E O01 .6501201E 00 
s10000E 01 .10000E 01 .1OCOOE 01 .17812428h O02 .1102736E O1 
sLO000E Ol .1OQ000E O01 .1O000E O1 .24300390R 02 .1528116E O1 
~L000CE 01 .10000E 01 .10000B O1 .2737208E 02 .1729568E Ol 

SLBECEL INPUT FROM READ 32 RUN 4 PAGE 15 
NCLC = 2 NEWSRC = 1 
NMEM = 3 KPRNT3 = 2 
SLBCEL MATRIX EQUATION SOLUTION RUN 4 PAGE 16 


DETERMINANT OF COEFFICIENT MATRIX = .213634E.02 


CELL MULTIPLICATION = .23851E 02 


e30000E 00 «386 .60000E 00) =.Q0000E 00——_ iw. 1283145E 01 =. 4802877E 00 
e30000E 00 3 .60000E 00 §8==—.00000H COW LH29824E 01 =. 53. 51905E 00 
»30000E 00 §«~.60000E 00 3=—.00000E 00 ~=—s-—«w 1787026E O01 = .6688932E 00 
eLOOOOE Ol .1OO0Q0E Ol .12000E 01 .1798377E 02 8 .1130805E O1 
eLQOOOE Ol .1O000E O01 .1ILOOOE O01 = .2372486E 02 ~ = .1524348E 01 
elOOOOE OL .10000E 01 .70000E 003 .2534530E 02 .1660475E O1 


+ 
% 


EiSts 
LAGE 


eo ULB GRE 


ex 


CVT Cee) 


1 
2 


100 


NE Whe 


DIMENSION PATH(40)9C(40) sKTRL(40) sKMDC(40)9S(40) 9 
1G(40940)sGSLP(49 540) »sGCRV(40 940) 9 T (49940) sH(40 940) 9 
2B (43943) 9FLX(40)9F( 24) 9F3A(250) 9F3R( 250) 9 
2SA(4392)sFRASF(43)9FXTRA(4GO) sEXTRR( 40) 

COMMON NsNREADoNT sNSUC sMODCsKMIX s NREL sNCLCoNMEM 9 
IMTINsMAsNPAGs INDX sKPRNT Ils KPRNT 29KPRNT32sKPNCHI s9KPNCH2 9 
2KXXASKXXB9 KXXCesTMULT »CONVS ARGUS BF 9 CF aDF 9 
ZPATHsCeoKTRLsKMDC3S9GsGSLPsGCRV95T Hs 
4BRoFLXosFsFE3ZAsE3R2 SASFRASEsSEXTRASEXTRB 

FORMAT (175) 

FORMAT(4°16.29) 

READ 29 (F3A(I)o91 

PEAD 2s (CES3B(1)s I 

RFAD 1s NPROR 

CALL RFANI 

GALL CONTRLE 

NPROB=NPROR—1 

IF (NPROB) 1009100950 

Gael Peri 

FND 


19250) 
is250) 


Ns uals) 
LABFL : 
SUBROUTINE READ1 


SUBROUTINF READS IN PROGRAM CONTROL CONSTANTS AND 
INTTIAL INPUT DATA FOR A PARTICULAR PROBLFMe 


DIMENSTON PATH(40)9C(40) 9K TRL (40) 9KMDC(40)9S(40)s5 
16(40340) »sGSLP(40 940) »GCRV(40940)9T(40940) 9H( 40940) 
2B (43943) sFLX(40)9F(24)9E3A(250)9F3R(750) > 
335A (4392) sFRASF(43) sEXTRA(40) »sEXTRB(40) 

COMMON NosNRFEAD NT sNSUCsMODCsKMIX sg NREL sNCLC 3aNMEM g 
IMI TNoMA »NPAGs INDX sKPRNT1sKPRNT 29KPRNT 39 KPENCHI] 9 KPNCH2 9 
PKXXASKXXR9KXXCsTMULT sCONVs ARGUSBF 9 CF aDF 9 
Z3PATHsCsKTRLsKMDC9S3sGsGSLPsGCRVoeTsHs 
4ReFLXeFsE3AsFE3RsSAsFRASE sFXTRASEXTRA 

FORMAT(915) 

PORMAT(2E12.5) 

FORMAT(6E12.-5) 

FORMAT(141T5) 7 

FORMAT(1H19s5X78H SLBCEL INPUT DATA 910X4H RUN 139 
MVOXSH PAGE 13) 


6 FORMAT(1HOs8X4H N =1394X8H NRFAD =1397X5H NT =I139 


T5X7H NSUC =13//6X7H MODC =1395X7H KMIX =139 
25X7TH NREL =1395X7H NCLC =137/6X7H NMEM =139 
34X7H MITN =1493X9H KPRNI1 =1393X9H KPRNT2 =13// 


‘ Ves 
1” i ‘ 
- iss 8 - 





CYC) 


x 


C6 6 eae eS 


4G4X9H KPRNT3 =1393X9H KPNCH1 =1393X9H KPNCH? =13,5 
pop a ea 37 760A KAAB =[3s5X7R KXXC =13) 
7 FORMAT(1HOs5X27H ESTIMATED MULTIPLICATION = F10,5// 
15%24H CONVERGPNCG CRITERION = E12.-5) 
8 FORMAT(1HOs92X2H Is1X8H KMDC(1)92X8H KTRL(II)/ 

Wl 5s 1G6s.BA15)) 

MA=1 

NPAG=1 

INDX=1 

READ lsNsNRFADONT »9NSUC »9MODC sKMIX » NREL sNCLC9NMFM g 

IMI TNs KPRNT 1s KPRNT 29K PRNT 3s KPNCHI] sKPNCH2 9K XXA 9 KXXBs KXXC 

READ 2sTMULTsCONV 

READ 39 (PATH(I)sI=19N) 

RimeoO 3s {(Cl]T)sTt=]2N} 

Peep 32> (S(1)sT=l15N) 

BenD 45 {KTIRL( fT} >s1T=19N} 

Meet x) 2905204510 
10 READ &s (KMDC(I)sI=19N) 

Ge 10 30 
20 DO 21 J=l1lsN 
21 KMDC(1)=MODC 
320 GO TO (50%40550)sNMEM 
40 RFAD 3s (Bl Tsl)o9T=leN) 


PRINT OUT INPUT DATA, 


50 PRINT SesINDXsNPAG 
NPAG=NPAG+1 
PRINT 6sNsNREADSNT sNSUCsMODC 9 KMIX s NREL SNCLC 9 
INMEMsMI TNs KPRNT1 sKPENT 2 sKPRNT 32sKONCH1 9 KPNCHD2 9 
2KXXASKXXBIKXXC 
PRINT 7sTMULTsCONV 
Pern “Sem CiskKMpC(I)»sKIRL(C I) sI=19N) 
RETURN 
END 


LISTS 
ga 
SUBROUTINE READ? 


SUBROUTINE READS TRANSFER COEFFICIENT ARRAYS Gs GSLP» 
AND GCRV WHEN NREAD EQUALS 29 OR THE ARRAY T WHEN 
NREAD EQUALS 3.6 


DIMENSION PATH(40)9C(40) sK TRL (40) sKMDC(40) 9S(40) » 
16140540) sGSLP(40 540) sGCRV(40940)53T(409490)9H( 40240) 9 
Piper oem ete x (G0 9-1 24)53E3A(250)2E3R( 250) » 
3SA(4392) sFRASF(43)sFXTRA(40) sFXTRB( 40) 

COMMON NeNREAD ONT »9NSUC sMODC 9 KMIX sNRFEL sNCLC9NMEM 9 
IMI TN e9MA »NPAGs INDX 9 KPRNT 1 so KPRNT 29 KPRNT 39K PNCHI 9KPNCH2 9 
Z2KXXASKXXBsKXXCa TMULT »sCONVesARGU2 BE os CF a DF 9 


A 








KOK 


as es a a as ae 


ZPATHsC eK TRL SKMDC 959GsGSLPsGCRVsT oH, 
4GBesFLXsFsE3A9F3B9 SA SERASE sFXTRASEXTRB 
FORMAT(6Flle7) 
2 FORMAT(1YHOs10X37H ARPRAYS Go GSLPs GCRV HAVF BFEN REAN,) 
3 FORMAT(1H0s10X23H ARRAY T HAS BEEN READ.) 
GO TO (1004109203100) sNREAND 
190 READ 19 ((G(T9J)2J=19N) sT=19N) 
Peeps Gm mms Jes J-15N)sl=7 oN) 
READ 1s ((GCRV(I9J) sJ=loN)sIT=l1loN) 
PRINT 2 
GOTO” 109 
20 READ ls ((T(I9J)sJ=19N) 9I1=19N) 
PRINT 3 
100 RFTURN 
END 


— 


imiols 
LABEL 
SUBROUTINE READ3 


SWeroulINe READS DATA FOR ADDITIONAL RUNS IF 
NT 1S GREATFR THAN 1, 


DIMENSTON PATH(40)9C(40) »KTRL(40) 9KMDC(40) 9S(40) 9 
16149940) »GSLP(40 940) sGCRV(40 540) 9T(409240) 9H( 40940) 5 
meee sites) 9 1LX(40)9F(24)5B3A(250) »E38( 250) >» 
32SA(4392) sFRASF(43)sFXTRA(40) sFXTRB(4O) 
COMMON NeNREAD NT sNSUC sMODC9KMIX eNRFL eNCLC9NMEM 9 
IMI TNesMAsNPAGs INDX sKPRNT 1 s9KPRNT 293K PRNT 39 KPNCHI sKPNCH2 5 
PKEXXASKXXRBRSKXXCaTMULT sCONV se ARGUSRF so CF eaDE 9 
ZPATHsCsKTRLeSKMDCsS9GsGSLPsGCRVsIsHs 
4ReosFLXesFsE3AsE38sSASFERASE s9EXTRASEXTRB 
P FORMAT(I1H1s5X24H SLBCEL INPUT FROM READ3 > 
110X4H RUN 13s10X5H PAGE 14) 
Per orMat (ey! 5 ) 
Pee@RMAT(YHOs10X7H NCLC =I12s10X9H NEWSRC =I 2// 
111X7H NMEM =I12910X9H KPRNIT3 =12) 
4 FORMAT(6F12,.5) 
READ 2s NCLC »sNFWSRC oNMFEM so KPRNT 3 
PRINT les INDXsNPAG 
NPAG=NPAG+1 
PRINT 39 NCLCsNEWSRC sNMEM os KPRNT 3 
GO TO (190920) s5NSUC 
19 READ &s (C(T)sTet9N) 
20 GO TO (3205340) sNEWSRC 
30 RFAD 45 (S(J1)sT=19N) 
40 GO TO (1005503100) sNMEM 
50 READ 4s (R(Tol)sT=loN) 
1090 PFTURN 
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MAAAN 


10 
20 
30 
40 
60 
70 
80 
99 


95 


100 


lighot 
LABEL 
SUBROUTINE CONTRL 


SUBROUTINE DIRECTS PROGRAM FLOW FOR INITIAL AND 
SUCCESSIVE PUNS OF A GIVEN PROBLEM. 


DIMENSION PATH(40)2C(40) sK TRL (40) sKMDC(40)9S(40)5 
16440340) »sGSLP(40940) sGCRV(40 940) 9T (40940) 9H( 49940) 9 
Deere HEIL VG O )3F(24)5E3A(250)5E38(250) » 
35N(4392) sFRASE(43)s9FXTRA(4O) sFXTRR( 40) 

COMMON NoNREAD NT sNSUC »sMODC sKMIX s NREL sNCLC3NMEM 9 
IMTTNsMAsNPAGs INDX Ss KPRNT Is KPRNT 2s KPRNT 329 KONCHI SKPNCH2 9 
PKEXXASKXXBR9KXXCs TMULT sCONVeARGUSBF eo CF aNDF 5 
ZPATHsCeoKTRL so KMDNC959GsGSLPsGCRV5eT 9Hs 
GReFLXoFsEZAsFE3RsSAsFRASE sEXTRASFEXTRR 

GOmTO (40,20, 3064 OjNREAD 

CALL PARAM] 

GO TO 40 

CALL RFEFAD2 

Go 10 40 

CALL READ2 

MA=?2? 

CALL PARAM2 

Como (60s 70) »NeELC 

Genie In@ 1 TN 

GO TO 80 

GRE IE IWEMEQ 

INDOX=TNOX+1 

IF (NT-INDX) 1009990390 

CALL READ3 

NGLC=NEEC 

GO TO (95950) »NSUC 

MA=2 

CALL PARAM2 

Gor ro 56 

RFTURN 

END 


eyed *) 


1 
2 
3B 
4 
a, 


6 
q 


20 
30 


40 


59 


400 


40] 


402 


403 


a ees 
laAB Eile 
SURROUTINF PARAM] 


GIVEN PATH(I)sT=1l9N » THIS SURROUTINFE COMPUTFS THE 
TRANSFER COFFFICIFNT ARRAYS Gs GSLP AND GCRV. 


DIMENSION PATH(40)2C(40) s9KTRL(40) sKMDC(40)3S(40) 5 
16(40540) sGSLP(40 940) sGCRV(40340)5T(40940)9H( 405940) 9 
PRM S943 YOFLXAT40) 3 F124) 3E3A(250) 9F3RB(250)>5 
3SA(4392) sERASE(43) sEXTRA(4G0) os FXTRB(40) 

COMMON NeNREAD ONT sNSUCesMODCsKMIX »sNRFL sNCLC 9NMEM 9 
IMTTNsMAsNPAGs INDX sKPRNT1 Ss KPRNT 2s KPRNT3sKPNCHI s9KPNCH2 9 
2KXXASKXXBSKXXCaTMULT sCONVs ARGUS BF 9 CF oDF » 
ZPATHsCsKTRLSKMDCsSsGeGSLP»GCRVoeTsHs 
4BoFLXoFsE3ZAsFE32BsSAsFRASEsFXTRASFXTRA 

FORMAT(1H195X35H SLBCEL TRANSFER COEFFICIENT ARRAYSs 
15X4H RUN 13395X5H PAGE 13) 

FORMAT (1HOs20X23H MATRIX GtI9J) FOLLOWS, / 
12X2H [T920X16H MATRIX ELEMENTS ) 

FORMAT(T496FIO0e6/5X6F lO e6/6X6FI0e6/ 7X6F10e6/ 
18X6F10.6/9X6F1066/10X6F1026) 

FORMAT (1HOs20X26H MATRIX GSLP(IsJ) FOLLOWS. / 
12X2H IT920X16H MATRIX ELEMENTS } 

FORMAT (1HOs20X26H MATRIX GCRV(T9J) FOLLOWS, / 
12X2H [220X16H MATRIX ELEMENTS ) 

FORMAT (6F1l1e¢7) 

FORMAT(1HOs5X7H NRFL =1395X8H TPATH =F10.5) 

TPATH=0 20 

MO 320 THI19N 

DO 20 J=loN 

Greist) =050 

GCRV{(Is9J)=0,0 

TPATH=TPATH+PATH(T) 

Pe Gile Be) 40440550 

NREL=1265/1PATH 

PRINT 7sNRFEFL eo TPATH 

TA=0 


START AND RFFNTRY POTNT FOR RECFIVFR REGIONSs [Ac 


TA=TA+41 

IF (N=ITA) 8009401 9401 
PT=PATH(IA) 
RTRP=0,0 

Bi{lL=0,0 

DO 402 I[=lsIA 
BML=BIL + PATH(I) 
BIL=2.0*¥(RTL=PT ) 
Die 403 @P=IAsN 
RTR=BTR + PATH(T) 
BTR=2,0#(RTR-PI ) 
ea=0 
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MOYO 


START OF LOOP FOR SOURCE REGIONS» JA, 


410 JA=JA+1 
IF (N-JA) 40094119411 
411 PO 412 J=1924 
P JSP AT ECIA ) 
ARGUR=0,0 
ARGUL=0.0 
KeGuU=0..0 
PE PeeaTAD 413941959416 
413 PO 414 T=JA9N 
414 APGUR=ARGUR + PATH(T) 
DO 415 I=IAsJA 
415 ARGU=ARGU + PATH(T) 
ARGUR=2 ,O*# (ARGUR-PJ) + ARGU —- PI 
ARGUL=ARGU -PI-PJ 
RTA=RTL 
RTR=BTR 
GO TO 420 
416 NO 417 T=19JA 
417 ARGUL=ARGUL + PATH(T) 
DO 418 I=JAsIA 
418 ARGU=ARGU + PATH(T) 
BTA=BTR 
See —B TL 
ARGUL=2 e0* (ARGUL-PU) + ARGU - PI 
ARGUR=ARGU =-PI =-PJU 
GO TO 420 
419 ARGU=PT 
CALL TABLF1 
G(TAsTA)=1.-0=(0.5—-BF)/PI 
G@RV (1 AOMNA YS 20,.546F)/(6,0"PT) + 
1(2-¢04+3,0#CFI/(32,0*#PTH¥2) +(-0,54+2.0*#DF)/(PI¥#3) 
ARGUR=RTR 
AP GUE = 6 Il. 


oreo EMIMPED TO THE RIGHT. 


420 ARGU=ARGUR 
IF (TA#JA) 42294219422 
421) BITA=BTIL 
BTB=BTR 
422 LINT=1 
GO_TO 30 
423 KDX=0 
425 KDX=KDX+1 
ARGU=ARGU+RTA 
en i=2 
GO. Vsce 
426 ARGU=ARGU + RTR 
LINT=3 
GO TO 500 
O27 IF (NRFL=KDX) 43094309425 
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F(12)=F(12)+DF 
GO TO (423342694277) sLINIT 
C 
@ PARTICLES EMITTED TO THE LEFT, 
G 
600 CALL TABLE] 
F(13)2F 613) + BF 
F (et) =Fe( 17 )4+CF 
P(21) SPeU21 )20F 
ARGU=ARGU+P J 
CALL TABI? 
ej ( | aye BF 
P(18) Se bee GF 
et? ) =F (229% DF 
ARGU=ARGU+PT 
CALI T A Bie Et 
Pago ySer tS) + BF 
F(19)=F(19)4+CF 
Big 3)=F €23)+0F 
ARGU=ARGU=P J 
Gam TABLE] 
F(16)=F (16)+BF 
F(20)=F (20)+CF 
F(24)=F(24)+DF 
GO TO (4333943639437) sLINI 


C IF KPRNT1 = ls PRINT ARRAYS Go GSLP» AND GCRV. 


800 GO TO (8109850) sKPRNT1 

810 PRINT Ls INDXesNPAG 
NPAG=NPAG+1 
PRINT 2 
BO 820 J=l15N 

Seo PRIN! 3am yo(GlT>sJ)sJ=lsN) 
PRINT Le INDXsNPAG 
NPAG=NPAG+1 
PRINT 4 
BO 630 [=ls5N 

830 PRINT 33 [Ts(GSLP(I9J)sJ=19N) 
PRINT le INDXsNPAG 
NPAG=NPAG+1 
PRINT 5 
DO 840 {f=1.N 

840 PRINT 39 [s(GCRV(I9J) sJ=19N) 


IF KPNCH1 = 1s PUNCHED-CARD OUTPUT OF ARRAYS GsGSLP 
AND GCRV-e 


CV OY OVE 


850 GO TO (86031000) »sKPNCH1 

mee PUNCHY 6s ((GlIs5J}sJ=1°eN)sI=19N) 
PUNCH 69 ((GSLPCI9J)sJ=l9N) sT=19N) 
PUNCH 62 (C(GCRV(T9J) sJ=loN) sos T= oN) 

1000 PFTURN 
FND 


OK 


CVOY OF OVC) 


CYGY. Gs 
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ul ome 
LAB SIE 
SUBROUTINF PARAM] 


GIVEN PATH(T)sT=19N » THIS SUBROUTINE COMPUTES THE 
TRANSFER COEFFICIENT ARRAYS Gs GSLP»s AND GCRV FOR 
A BARE REACTOR. 


DIMENSTON PATH(40)2C(40) sK TRL (40) sKMDC(40)9S(40) 5 
16(40940) »GSLP(40 940) sGCRV(40 940) 9 T( 409403 9H1( 40940) 5 
Dieses 191X140) 9F (24) 5E3A( 250) 9F3B(250) » 
325A(4392)sERASF(43)}) 9FXTRA(4O) sEXTRB(40) 

COMMON NoNREAD NT sNSUCsMODC sKMIXs NREL sNCLCoNMEM 9 
IMTTNeMA sNPAGs INDX sKPRNT1 sKPRNT 2s KPRNT 3s KPNCHI sKPNCH2 » 
2KXXASKXXBSKXXCeTMULT sCONVes ARGUS BF eo CF aDF, 
BPATHsCesKIRLsKMDCsS9GsGSLP»GCRVsl sHs 
ABsFLXeFsE3ZA2E3RBsSASFRASE SEXTRASEXTPR 

FORMAT (C1H195X35H SLBARFE TRANSFER COFFFICIENT ARRAYS: 
TSRASH RUN 13-25X5H PAGE I13) 


2 FORMAT(1HOs20X23H MATRIX GlIsJ) FOLLOWS. / 


2 


12X2H 1220X16H MATRIX ELEMENTS ) 
FORMAT(1496F10¢6/5X6F10e6/6X6F10e6/7X6F1066/ 
18X6F1066/9X6F10.6/10X6F10.6) 


4 FORMAT(1HO0s20X26H MATRIX GSLP(I2J) FOLLOWS. / 


B 


6 


a.) 


Z1i2 


PAK i1s20X16H MATRIX ELEMENTS ) 
FORMAT(1HOs20X26H MATRIX GCRV(IsJ) FOLLOWS. / 
Weree ere OX16H MATRIX ELEMENTS )} 
P@RMAIM6F11.7) 

NM=N=—] 

NM2=N-2 


SOMERNUMBERMOF MEAN FREE PATHS BETWEEN REGIONS I AND Je 


DOw211 f=15NM 

Ol lei+)] )=0,0 

DO 212 f=1+sNM2 

TP2=[+2 

DO 212 J=IP25N 

Ot Mee Gt 1 +> J-1)4+PATH(J-1) 
TA=0 


START AND REENTRY POINT FOR RECEIVER REGIONSs [Ac 


mS | A= le] 


PT=PATH(IA} 

ARGU=P] 

CALL TABLE1 

F1O=BF 

F15=CF 

F20=DF 

GOPAST AV=140—-(0,5-F10)/PI 
GORV(TAsSTA)=(=-0,.54+F10)/(62e0#PI)+61604+32.0%515) / 





1 (3 ,O#P J #2 )+(-0454+27,0%F20)/( PI #3) 


STARWRO- LOOP FOR SOURCE REGIONS» JA, 


MOC 


JA=I1A41 
PJ=PATH( JA) 
ARGU=0.9 
PG= ORS 
FI11=1.0/73.9 
F16=0925 
GO TO 820 
B00 JA=JA+I1 
PJ=PATH(JA) 
ARGU=G(TA9JA) 
GAimm TABLE! 
F6=RF 
Per l=cr 
F16=DF 
820 ARGU=ARGU+PJ 
eael WABLE] 
e/7=BF 
FI2=CF 
FI7=DF 
ARGU=ARGU+P]I 
Coir WASLF!] 
F8=BF 
fe] SSC Fr 
FIT8=DF 
ARGU=ARGU=-PJ 
CEG oe] i gd oll 
FO=RF 
para = CF 
FI9=DF 
X=F6=F7+F8=£F9 
GUITARS JA YH=XK/02-0#PJ) 
GUA ee) =X/(2,.0%PI) 
Y=FI16—=F17+F18=-F 1S 
GCRV( TAs JA) =X/(12 eO¥PYJ)—-(F114F12-F13=-F14)/(2,0%* PUR? D+ 
LY /(PJx¥3) 
Gee vere Ay =X/(12.0*%P 1 )—-( FL I1—F1l2-F13+F14)/(2.0#*PI e* 234 
LY/(P]*#3) 
GSLP(TAsJA)=-(F64F7—=F 8-F94+(2.0/PS) #(-FI114+F12-F13+F14) )/ 
1(8,0#P)) 
GSLP(JAsTA)=(F6-F7—-F8+F9+(2.0/PATH( IA) )#(-F114+F12-F 13 
14+F14))/(8,0#PT) 
IF (N-JA) 82198219800 
@ 
c COMPLETION OF JA LOOP, 
C 
ee! JF (NeIJA=1) 8239823,750 
e223 JA=N 
PT=PATHI(N) 
ARGU=P] 
CALL (Abie? 





CY CVCY OY ON 


a os Ge el ae 


F1O=RF 


P1S=Cce 

F 20=NF 

GiIAsTA)=12e0—(0,5-F10)/PI 
GCRV(TAsTA)=(-0.54+F10)/(6,.0#P1)4+(1,04+3, O#F15)/ 


1 (apOreP 18 2 1 -0654+2,.908F 20) /(P1**3) 
COMPIMET PON@OF [A LOOP 
IF KPRNT1 = 1s PRINT ARRAYS Gs GSLPs AND GCRV. 


G@r 70m 910 9:015 0 JweK PRN Tad 

910 PRINT ls INDXeNPAG 
NPAGE=NPAG4+1 
PRINT 2 
DO"> 920 I[=l15N 

920 SPRINT BesnlesetiG ( Ie J) o=1 oN) 
PRINT ls INDXsNPAG 
NPAG=NPAG+1 
PRINT 4 
DO 930 T=l1.N 

930 PRINT 39Ts9(GSLP(TsJ)sJ=15N) 
PRINT lsINDXsNPAG 
NPAG=NPAG+]1 
PRINT 5 
DO 940 [=15N 

940 PRINT 3919(GCRV(I9J)sJ=l1l5N) 


PResSPNCH] = 19 PUNCHED-CARD OUTPUT OF ARRAYS GsGSLP 
AND GCRV. 


950 GO TO (96051000) sKPNCH] 

9690 PUNCH 69((G(19J) sJ=19N) sI=19N) 
PUNCH 69 ((GSLP(T9J)sJ=19N) oT=19N) 
PUNCH 69 ((GCRV(IT9J)sJ=1l9N) 9 T=19N) 

1000 RFTURN 
END 
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CY OVO 


10 


20 


EIsts 
LABFL 
SEIBROUTING TABLE! 


ees SUBROUTINE WWSES THIRD ORDER POLYNOMIAL 
INTERPOLATION TO DETERMINE THE VALUF OF THE 
EXPONENTIAL INTEGRAL OF ORDER THREE »RF=E3 (ARGU) » 
WHERE THE ARGUMENT LIES BETWEEN TABULAR VALUFS, 
RECURSION RELATIONS ARE THEN USED TO DETERMINE 
GP=E4(ARGU) AND  DF=E5( ARGU). 


DIMENSION PATH(40)9C(40) eK TRL (40) sKMNC(40)9S(40) 9 
16(40 340) sGSLP(405340) sGCRV(405940) 9 T (40940) sH( 40940) 
ee Fo cee et Oe (24) os PF 3A(250)sE3R(250) > 
2S5A(43592)eFRASF(43)sFXTRA(4GO) sFXTRR(4O) 

COMMON NsNP FAD NT sNSUC »MODC »9 KMIX »9NRFL sNCLC 9NMFM g 
IMTINsMA®NPAGs INDX es KPRNT 1] sKPRNT 2 sKPRNT3 9 KONCHI sKONCH2 9 
PKXXASKXXBsKXXCe TMULT sCONVsARGUSBF sCFsDF 5 
ZPATHsCsKIRLesKMDC sS9GsGSLPsGCRVelsHs 
4GBeoFLXeoFsE3ZA2E3Bs SASERASE s9EXTRASEXTRR 

IF (ARGU-20,1) 20910310 


ARGU GREATER THAN 20,12 INTFGRALS ASSUMED EQUAL 
Owee RO. 


Bie) 60 

Cs 0 0 

DE=0,0 

GG, 1000 

Q=FXPF(-ARGU) 

IF (ARGU=-2.4799) 30530360 


30 TF (ARGU= 00,0100) 40:40:50 


ARGU LESS THAN 02401 6 


40 X=zARGU/0,01 


weSS5=0 
BY=0,5 
GO-TO 55 


ARGU BFIWEEN 0.01 AND 2447996 


pO P= APG / 0701 


a5 


LFSS=P 
A=LFESS 

X=P—A 

RBY=F3A(LFSS) 
RZ1=E3A(LESS+1)=RY 
BZ2=(F3A CL meS+2)-BY)/2,0 
Bee PSA LESSHs)-—BY) 72,0 
ce, pee 70 





cf | i => as, ari 
(Ts” =e ee 
'e ’ = 
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sriT\ 
] 
ap 








MOVOAAD 


60 


MO Voy 


70 


Cynara y o) 


EOU0 


OK 


a i Ms ast a) WR a 1 


} 


2 
) 


ARGU BETWEEN 2-2-4799 AND 20.1 . 


P=ARGU/0,10 

LESS=P 

A=LESS 

X=P—A 

RY=F3QTLESS) 

Pao it] ) BY 
BZ2=(F3R(LFSS+2)=BY)/2,0 
peo e Shi lb oo+3 )—-BY)/3,0 


COMPUTATION OF POLYNOMIAL COEFFICIENTS. 


Bres=(P294RB271)72.0 - B22 
BC2=BZ2=-BZ1-3.0#RC3 

Be ees 7 1 =BC2=8C3 

pra sByY Ox (BC 14+xX9( 2C2+X"(BC3))) 


RECURSION RELATIONS FOR THE EXPONFNTIAL INTEGRALS 
OF ORDERS 4 AND 5e 


CF =(Q-ARGU*RF)/3,0 

DF =(Q*(1e¢0-ARGU/3 .0)4+BFXARGU##*2/3.0)/4e9 
PETURN 

FND 


los 
LABEL 
SUBROUTINE PARAM2 


Wao oUSBROUTINE COMBINES ARRAYS Gs GSLP» AND GCRV 
INTO ONE ARRAYs TlI9J)s WHICH SATISFIES THE MATRIX 
Bee woe Gri*B + ao, i%=[HE ARRAY H=c#T 15S THEN 
BORMED= SUCH THAT B=H#B + Se 


DIMENSION PATH(40)9C(40) sKTRL(40) »9KMDC(40) 9S(40) » 
16(40340)5sGSP( 40940 ) »GCRV(40540)2T(40240) 9H(40240) » 
23143943 )9FLX(40)2F(274) »9E3A(250) 9F3R(250) > 
3SA(4392) s9FRASF( 43) 9FXTRA(40) s9FXTRB(40) 

COMMON NsNRFADoNT e9NSUCsMODC sKMIX s NREL sNCLC9NMEM 9 
IMI TNeMA sNPAGs INDX sKPRNT 1 sKPRNT 2s KPRNTI39KPNCHI sKPNCH2 9 
2KXXASKXXB9KXXCeTMULT sCONVS ARGUS BF a CF aDF 9 
BPATHsC o9K TRL »KMDC2SsGesGSLP»sGCRVoeT eH, 
4GBsFLXeaFsE3AsF3R9 SA sFRASE gEXTRASEXTRR 

FORMAT (1H195X18H SLRCEL PARAMFTERSs10X4H RUN 13 
LIOXSH PAGE 13) 

PORMAT(1HOs20X29H ARRAY TlIeJ) FOLLOWS ./3X%2H I) 

FORMAT (2X1396F10 e6/6X6F1Oe6/7TXBFI0N 6 6/8X5FI066/ 
19X6F10.6/10X6F10.6/11X6F19066) 


G4 FORMAT(6F1le¢7) 
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GO TO (20989) »MA 
20 DO 30 J=loeN 
DO 30 T=l9N 
30 TlIsJy=G(I5J) 
IF (MODC=-1) 80980531 
31 DO 70 J=leN 
KA=KMNC(J)=-1 
TF (KTRE(I)) 40550560 


DieSCONTINUITY Al RIGHT INTERFACE OF SOURCE REGION J. 
Oo 6G 1 Om Gl» &4 park A 
SLOPF CORRECTION 
memo. 42 J=aleN 
TT ee) )=Tl is) ) pammOreGSLP (I+) 
feet sJ—))=10 1s J—1)—4, O*GSLP( Is J) 
“a? Wet —-2}=1( 7 sJ-2)+GSLP(I J) 
GOmRO 70 
SLOPF AND CURVATURE CORRECTIONS, 
po. 45 Wr=1 »N 
imme =1 0 1s.) +3,.0=6S( P([5J)+0.5*GCRV(IsJ) 
TOTsJ-lL) aT lI sJ-1)-4,90*GSLO (ITs J)-GCRV(I5J)} 
25 i(JsJ—2)=1 (1 sJ=2)4+GSLP(I 9J)4+0-5*#GCPVIIsJ) 
Ge 1 70 
NO DISCONTINUITIES AT INTERFACES OF SOURCE REGION Je 
50 GO TO (51954) aKA 


SLOPE CORRECTION. 


ple 52 J=leN 
es — i) tte J—1)-GSLP(IsJ) 
weet Cis tt )y=ltisJ4+1)+GSLP(IsJ) 
Soy 10,70 


SLOPE AND CURVATURE CORRECTIONS. 
pe DO 55 I=I1sN 

Peewee list) —GCRV( Ts) 

nem =) des I=] )-GoLPlIsJ)+0e5*GCRVIIsJ) 
poet is Jel )y='(1sJ4+1)+GSLPCI»J)+0.-5*GCRVI IJ) 

E19) AO Fe 

PeoGO mmintoiny Al LEFT INTERFACE OF SOURCE SEGION J. 
60 GO TO (61964) sKA 


SLOPE GORRECTIONe 
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i ie 
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Oe @ 2) 


61 DO 62 T=19N 


Ti Tost) =TlIsJ)-3e¢0*GSLP(I9J) 
ieee et) se +d +4 OFGOLP( Is J) 

G2 Wee JZ yal (fsJ4+2)-GSLPC lsd) 
GOmrrTO 70 


SLOPE AND CURVATURE CORRECTIONS, 


64 POT6és [=)Ts'N 
TOTsJ) =TlIsJ)—-3e-0*GSLP(19J)40.5*GCRV(I I 9J) 
TOToJ+1)=F (fs J+1 )4+4.0*GSLPC Ts U)-GCRV( I 9d) 
65. Wee? FET ( I sOPO-GSLP(I»J)FO0L.5*GGRV(I>J) 
70 GONT TINUE 


Romer aN? "=a le PRINT COEFFICIENT ARRAY TlIeJ). 


GO TO (72975) sKPRNT 2 
72 PRINT ls INDX»eNPAG 
NPAG=NPAG#+1 
PRINT 2 
DO 73 T=l19N 
73 PRINI 39 Isl TC IsJ)sJ=19N) 


Leech 2m=" 1s PUNCHED OUTPUT OF ARRAY Jl(IsJ)- 


75 GO TO (769380) »sKPNCH2 
Meme UNGH 45 CCC Ts J) sJ=15N) eT=19N) 


USE CURRENT VALUFS OF C{I) TO CONVERT TlIsJ) TO H(I9J)- 


80 DO 81 JT=loeN 
Ghee] ) 
DO 81 J=l19N 

St Fre! spy =CAXT (1 sJ) 
RETURN 
END 
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CaS 13 
Lee EE 
SUBROUTINE CLCMFQ 


THIS SUBROUTINE SOLVES THE SET OF N LINEAR 
INHOMOGENEOUS EQUATIONSs (I-H)B=Ss USING THE Melele 
LIBRARY FUNCTION XSIMEQFe (REFERENCE == CC-174-5) 


DIMENSION PATH(40)3C(40) sKTRL (40) sKMDC(40)59S(40) 5 
16(40340 ) »GSLP(40 540) »GCRV(40940)59T(40940) 9H( 40940) 
7 mes ee rr 1 9 F (24) 5FE3A(250) sF3R(250)> 
3SA(4392) sFRASF(43)2FXTPA(40) sFXTRB( 40) 

COMMON NsNRFEADSNT sNSUCsMODC sKMIX »NRFL sNCLC oNMEMo 
IMTINeaMA sNPAGs INDX es KPRNT1] sKPRNT 2 sKPRNT 39K PNCHI] sKPENCH2 9 
2KXXASKXXBRs KXXCesTMULT sCONVs ARGUS BF oCFoDF 5 
ZBPATHeCsKTRL es KMNCsS59GeGSLPsGCRVsI9Hs 
4GBRsFLXsFxsEZASE3Bs SA2FERASE sEXTRASEXTRR 

FORMAT (1H195X32H SLBCEL MATRIX EQUATION SOLUTIONs 
15X4H RUN I13535X5H PAGE 1[4) 

FORMAT(1HOs6X38H COEFFICIENT MATRIX AlIsJ)» FOR A*B=So>9 
19H FOLLOWS 4//3X2?H I) 

FORMAT (2XI13296F10e¢6/6X6F1Oe6/7X6FIOe6/8X6F1L066/ 
19X6F10.6/190X6F1066/11X6F10,.6) 

FORMAT(1HOs3X36H DETERMINANT OF COEFFICIENT MATRIX =o 
aor. ©.) 

FORMAT( 1HOs3X21H OVERFLOW IN XSIMEQF.e) 

FORMAT (1HO93X32H COEFFICIENT MATRIX IS SINGULAR.) 

FORMAT(1HO093X22H CFLL MULTIPLICATION = F1l2e5/// 
Meroe s2X8H PATH(1)s7X5H C(I)» 7A5H SCI) > 
Peete BURT RATEs2X10H REL. FLUX/ 7/015 93E13e532E1467)) 

NO 30 JT=l1l5N 

DO 20 J=lsN 

BlisJ)J=-AVI J) 

Series] )=S( 71) 

B(IesT)=BlIsI)+1-0 

GO TO (33340) sKPRNT3 

PRINT ls INDXsNPAG 

NPAG=NPAG+1 

PRINT 2 

DO 324 JT=l5N 

Pees sls (BC lsJ)sJ=19N) 

ORF 1.0 

M=XSIMEQF(439N912BsSA2DET s ERASE) 

PRINT lsINOXsNPAG 

NPAG=NPAG+1 

GO TO (41342343) 9M 

PRINT 4sDET 

GO me 50 

DP] Nale 5 

GO 70 1100 

PRINT 6 

GQ TO 100 
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52 


100 
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own vu 
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SUM=0", 0 

NO 51 IT=lsN 
FLX(T)=(RUTs1)=$SCTSSS(ICIL)#PATHIT) } 
SUM=SUM+4FLXCT) 

QUANEN 

SUM=SUM/QUAN 

SUMA=0,0 

SUMB=0,.0 

DO 52 T=l19N 

Piel =F Xt) /SUM 

SUMA=SUMA+R( 191) 

SUMB=SUMB+S(T) 

FMUL T=SUMA/SUMRB 

PRINT 7oFMULT sl TsPATHCT) sCl(I)sSCT) BCI] 91)9FLXC1)sT=19N) 
RETURN 

FND 


imiotls 
LARFL 
SUPROUPYNE GLCIIN 


THIS SUBROUTINE SOLVFS FOR THE BIRTH RATE BY 
GENERATION TO GENERATION ITERATIONs B=H*B+S » AND 
Preah THE RESULTS. 


DIMENSTON PATH(40)3sC(40)sKTRL(40) 9KMDC(40)3S(40)s5 
ins 956510140540) sGCRV(40540) sT(40940) 9H( 40940) 
2B (43243) 9FLX(40)2F( 24) 2E3A(25C) 9 F3R( 250) » 
3SA(4392)2eFRASF(432)sFXTRA(40)esFXTRR(40) 

COMMON NoNREFADSNT »9NSUC »MODC 9 KMIX »9NRFL »9NCLC »9NMEM 9 
IMT TNsMAsNPAGs INDX sKPRNT1 sKPRNT 29KPRNT39KPNCH1 9K PNCH2 » 
2KXXASKXXBeKXXCesTMULT sCONV es ARGU SBF eCF sDE 9 
Z3PATHsCsK TRL sKMDCsS9GsGSLPsGCRVo9lIsHs 
4GBsFLXsFsE3ZAsE3BsSASERASESEXTRASEXTRB 

BeemALCI Als 5X25 SLACEL ITERATED SOLUTIONs 
18X4H RUN 1398X5H PAGE 13) 

FORMAT(17HOs10X36H ITERATION MATRIX Hi lIeJ) FOR B=HBtSe/ 
Perez. 1) 

FORMAT (2X13296F10.6/6X6F1lO0.6/7X6F1066/8X6F106.6/ 
19X6F10.6/10X6F10.6/11X6F19.45) 

Porat xA 22H St 1s) RESET FOR PASS 13) 

FORMAT 1HOs25X8H RESULTS) 

FORMAT (1HOs10X32H THE DISTRIBUTION HAS CONVERGED.) 

FORMAT (1H0510X35H THE DISTRIBUTION DID NOT CONVERGE.) 

mORr pmo A29H GONVERGENCE LEVEL ATTAINED = E12e5/ 
110X30H NO. OF ITFRATIONS COMPLETED = I4// 

21 0M@2H GEL MULWEPLICATION = F10.45) 

FORMAT(1THOs2X2H [s2X8H PATH(I) »7X5H CLI) es 7X5H SlI)> 

Laie meee ATEs2X70H REL. FLUX//(1593E130¢592E140.7)} 


10 FORMAT(1H0515X32H RESULTS OF LAST FIVE ITERATIONS / 


IBAZH” eee E1367) ) 
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ee a ab 


CYLON EN 


NIT=N+4] 
N2=N+2 
N32=N+2 
NM2=N— 3 
NHALFENY? 
NSC=0 
PPASS=1 
PRINT JsINDXsNPAG 
NPAG=NPAG+1 
GO TO (155318) sKPRNT3 
MS “BR INI. 2 
DO 16 THIN 
16 PRINT 39 Jol H( TsJ)sJ=1l9N) 
PRINT Les INDXsNPAG 
NPAG=NPAG+1 


oe INTIAL DISTRIBUTION. 


18 GO TO (209305330) sNMFM 
ZO WO 2) T=lsN 
21 ‘ee is1) =aMULT 
BO DO 31 J=1leN 
Ol sel Jet) =B ( I 9 0} 
WE 32" T=N 1 sNe 
Be B(134j)=0,0] 
go K=4 


@eMPuTe BIRTH RATES AT ITERATION STEP NSC, 


40 NSC=NSC+1 

K .=K 

K=K+] 

RO 50 |= »sN 

Sigii= 0 , (0 

DO 45 J=l1oN 
45 SUM=SUM+4H(TsJ)#RB(U9K1) 
50 RBlisk)=SUM4S(1T} 


DISTRIBUTION SPACE-ITERATION CONVERGENCE TESTS. 


R(N19K)=B(192K)/B(1sK1) 
B(N29*)=B(NHALF9K)/B(NHALF sK1 ) 
B(N39K)=B(NM39K)/B(NM35sK1) 
IF (NSC=4) 60960951 

51 V1=ARSF(B(N2 sK)—-BI(N19K)) 
IF (V1-CONV) 53952952 

52 CONVR=V1 
Go 10 60 

53 V2=ARSF(RINZ9K)—RI(NI 9K) ) 
V3Z=ABSF(RBIN1TsK)-B(N19K1)) 
V4=ARSF(BIN2 sK)—-B(N29K1)) 
V5= ABSF(RIN39K)—-B(N39K1)) 
CONVBHaV14V24V324V44V5 
IF (CONVR=$CONV) 70970960 
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195 PRINT 8sCONVBsNSC sFMULT 
PRINT Os(ToPATH( IT)» CCI) sSlIl)sQ8CI9kKFL) oFLX(1)sT=10N) 
KM4=KFL=4 
PRINT ls INDXsNPAG 
NPAG=NPAG+] 
PRINT 109(Ts( BCI 2J)sJ=KM45KFL) sT=19N3) 
DO 106 I=16N 
1068 6B ( Aeiep= iB Ciek Fil 
RETURN 
FND 
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APPENDIX D 


SIMPLIFICATION OF THE INTEGRAL~TRANSPORT EQUATION 


In stating the integral-transport equation for the neutron 
distribution in a fairly general nuclear reactor system, it is 
useful to express it as two coupled equations, each of which relates 
the directed birth rate density with the directed flux. The 
directed birth rate density, which is a sum of all production terms 
in the well-known Boltzmann integro-differential equation, is given 
by 

V 


max 
by (esVetst) = | dv? [f aweyevo v0" t)0 en gl gts 
° Lar 


° H(r,v",0",t)G,(zyv! 0") - Sq(2sV582,t) 


+ | terns for contributions from delayed neutron precursors} ; 
(D,1) 


where 


b4(r5Vs05t) is the directed birth rate density, 
Com? ° a esteradian.sec]~-, of neutrons emitted with 


speed v and direction () at position r and time t 
9 .(r,v',O@,t) is the directed flux at (r,t) of neutrons 
having velocity v*’ 


d(r,v',Q*,t) is the mcroscopic collision cross section, 


emt, at (r,t) for neutrons with velocity v'Q' 
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c(r,v',*',t) is the mean number of prompt secondaries emitted 


at (r,t) per collision of neutrons with velocity v'' 


fi qf ‘rev? JV,N°VQ,t) is the secondary neutron distribution 
function, [(em/ sec)(steradian)]~+, and is normalized such 


that its integral over dvd() is equal to unity 


s4(ryv ft) is the contribution to bs (25 Vs25t) from an 
external source located at (r,t). 


We shall neglect the terms which specifically account for delayed 


neutrons Si 


The directed flux is expressed in terms of the directed birth 
rate density by the following integral relation, which my either be 


constructed from physical prinicples or be derived from the Boltzmann 


equation by adapting procedures described in the literature pest 
R O (r of" ) 
¢ 
O3(xev" yf? st) = { dk "b (r-R "OQ sv? Os t= 4) . 
O 


R? 


' R Gel) 

es R oi tod 
°eXP 4 = [ GR" 7 (roR"0)° 9V°4O" te 7) ce (re, (2 " 0" ov", 0", ta mee Bagi 

“Oo 
R (rofl) 
1 
exp (= GR" 2 (r-R"0)' ,v* 0", t- a) ’ (D.2) 
e) 


*Notes For studying systems at steady-state, delayed neutrons can be 
includec emveriently in the functions c and f,. For time-dependent 
problems, the usefulness of numerical models of the type studied here is 
limited to transients of very short duration, In this case precursor 
concentrations may either be assumed constant or be corrected periodically; 
the emission rate of delayed neutrons may be treated as part of the 
external source rate. 
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where R°® is the distance, cm, from r to a source point which lies in 
the direction -()' from r, and R (r,0") is the distance to the boundary. 
The first term gives the contribution to G5 (esv',Q4t) of neutrons born 
within the defined boundaries of the system, which are assumed to be 
non-reentrant e@@eeas: the second term, the boundary term, gives 
the contribution of neutrons which were born in the surroundings. 

From this point, we shall consider only systems which are isolated from 


their surroundings such that the boundary term vanishes. 


In contrast with the corresponding differential equation, 
Eq. (D.2) is a pastehisory fermulation which requires detailed know- 
ledge of the past history of both the directed birth rate density 
and the collision cross section. One consequence is that storage 
mist be provided for the needed memory in computational models based 
on integral transport equations. A second consequence, for systems 
with time-varying collision cross sections, is that spatial transfer 
coefficients analogous to the G(I,J) of Eq. (1B.2) mst be recomputed 
at each time step. Computational effort and storage requirements are 
greatly reduced by restricting attention to systems with time- 


independent collision cross sections.” 


Whereas Eq. (D.1) involves only neutrons at the point (r,t), 
Eq. (D.2) involves only neutrons having the constant velocity v*2', 
Together, Eqs. (D.1) and (D.2) give the integral-transport equation. 
Either the directed birth rate density or the directed flux can be 


eliminated from the formulation by substituting one equation into the 


*fliote: In programs OVRR4 and TOVSR, an option is included for treating 
time-dependent >. The transfer parameters at time t are computed using 
the > at time t, neglecting the past history of 2. This approximation 
is suitable only for slowly-varying >. 
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other. Which dependent variable is retained is, in principle, 
arbitrary. Retention of the birth rate has a practical advantage, 
however, in that the values of the functions f3,¢ and s, used in the 
resulting integral-transport equation are the values at time t; the 


past history of these quantities is not required. 


At this point we introduce the simplifications of directional 
isotropy. For an isotropic medium, the properties 2 and ¢ are 
indsmdert of the direction 9° of the colliding neutrons. In addition, 
we assume that secondary neutrons (e.g., fission neutrons, scattered 
neutrons) are emitted isotropically in the laboratory frame of 


reference, in which case 
fs (rsv'>v 2 >0,t) = z £(ryvi = vee) 5 


where f has the units [om/ econ. With the further simplification 
1 

that the external source neutrons are emitted isotropically, it is 

clear from Eq. (D.1) that the directed birth rate density is 


independent of direction. 


With the simplifications of the previous paragraphs, Eqs. (D.1 
and 2) reduce to the following: 


Vv 
max 
bs (r5v5t) -| avt [| ans s £@,v'>v,t)c(r,v’,t)° 
te) drt 


“5(r,v") B,(2ov" 2! S18) ar S4(Z5v»t) 3 (D.3) 
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R (240°) 
0 ,(xov" 40° t) a | dR ° bj (reR 60", v?,t-R'/v")° 
0 
R° 
°exp - | dh® 2 rR)? ,v*) (D.4) 


8) 


For slab geometry, the positional argument r is replaced by 
the coordinate x in Eq. (D.3), where OS x < W. The properties and 
distributions are constants with respect to the coordinates y and z 
in the Cortesian reference frame (x,y,z). As regards directional 
dependence, the argument 2° is replaced by the coordinate set (* »,0), 
where is the magnitude of the cosine of the polar angle between the 
positive direction along the x-axis and {)", and 6 is the azimthal 
angle with the range 2n. The argument yp or + is used for the 
directed flux of neutrons moving in the direction of increasing x, 
and 1 for the directed flux of neutrons moving in the direction of 


decreasing x, where O << u< 1. The singular case, p = 0, is neglected. 


Noting that ¢ q iS independent of 0, we obtain from Eq. (D.4)s 


x 
@, (xyv" 4u,t) = { = b(x’,v',te Leet) . 
o 
x 
texp = { SE 5(x",v") (D. 5a) 
x? 


and 





277 


W 


1 dx? ee 
G_ (x,v? s-w,t) = 2 7 ns B(x", v’ ,t- tex). 


x 


x8 
-expd = | SE Tx",v") bs (D. 5b) 
x 


where 


2m 
(overt ust) = [dO dalev'yd ust) (D.6) 
8) 


is the angular flux, and 


Bet) = [[aargeavet) = 4rd (xv, t) : (D.7) 
Lary 


Similarly, Eq. (D.3) reduces to 


Vv 
max 


pox.Vv,t) = { Gy etx, V > V sc )C( Xs) > (cyan) 
O 


1 
=f auld, Gave) +0, ev nst)] + o(xy9t) (D.8) 
oO 


Substituting Eqs. (D.5) into Eq. (D.8), setting f(x,v'4v,t) 
equal to the Dirac delta function 6(v’—v) for monoenergetic neutrons, 
performing the indicated integration over dv', dropping the argument 
v from each term and rearranging terms, we obtain the integral- 


transport equation (1A.1). 





APPENDIX E 
THE DIFFERENTIAL EQUATIONS FOR LINE GEOMETRY 


The following set of two coupled differential equations, with 
noted boundary comitions, is equivalent to the integral-transport 
equation studied for line geometry, Eq , (1A.3)3 


iL Mp (x,t) ag, (x,t) 
vot ft Ox t 2A Gt) = 
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the 


<= Ast) (x) [B,(x,t) + d,(x,t)] + St) : (Eela) 


26, (x,t) 2G, (x,t) 
fe - ES + £(x)0, (x,t) = 


= LOGE s(x) (oh (xst) + 0,(xt)] +23, (evap) 


where a, is the directed flux, sec”, moving towards the right, the 


direction of increasing x, and 0, is the directed flux moving towards 


the left. The sum of the identical right-hand sides of the two 
equations defines the birth rate density, b(x,t), en™t secs, For 
an isolated system, the boundary fluxes G. (0, t) and O, (W,t), where 


O< x¢ W,are set equal to zero. 


Eol FORMULATION OF A FINITE-DIFFERENCE MODEL, MODEL D 


In this section we formate an implicit, first-order finite- 
difference approximation for Eqs. (E.1) as simplified by dropping 
the external source terms, the x-dependence of 2. and the (x,t)-= 


dependence of c. The model is designated Model D. The reason for 
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formulating and coding Model D is to provide an independent method 


for checking the asymptotic solutions computed for homogeneous line 


systems using the finite-integral models developed in Chapter 2. 


At this point, we note that for homogeneous line systems the 
asymptotic birth rate distribution is symmetric with respect to 
the midpoint of the system* and O. (x,t) = G,(Wex,t). Restricting 
the applicability of the model to be developed to problems with 
symmetric birth rate distributions, we mke the above substitution 
for G, (x,t) in the simplified form of Eq. (Eola). Eq. (E.1b) may 


then be neglected. 


The interval [0,W] corresponding to system width is subdivided 
into N intervals of width Ax = W/N. We focus attention on the N+1 
discrete points Xs» where 0 < i< N, located at the boundaries of the 
N regions; i.¢., x, = 0, X, = AX ooo 5 Xy = NAx = W. Noting that 
O,(x,2t) = 0 for the isolated system, we write the simplified form 
of Eq. (Eola) for each of the N values of x, for i2i. The 


equation for a tpyical a follows: 


O (xe) ) (x,t) 
re Ss +E0p (x, st) = 
eS —— 
= 28d, (x,t) + bg (xy get)] - (2.2) 


We then approximate each of the N equations by the following finite- 
difference equation, where 0, (x; »t) is denoted by Re and At is the 
unit time step: 


*Notes See Section E.2. 
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ool v » 
Jae = R R. <2} R: 
7 ote ax eto'y Seolh; tei! CRD 


Each of the N equations is then rearranged such that the set of equations 


is given by the matrix equation, 


J ve 
AR =R . 9 (E.4) 
where A is a square matrix N elements on a side and RY is 2 colum 


vector with elements R, 2 The set of numerical equations for Model D 


is then given by 


ee (B,5) 


al 


where the mitrix A” is the inverse of A. 


Model D was coded for the IBM-7094 computer. Asymptotic 
solutions are generated by reading in the system parameters and an 
arbitrary initial distribution Re , and generating the transient 
from time step to time step using Eq. (E.5). The degree of 
asymptoticity at a given time step is determined by using the method 
described in Subsection 2E.l. Some inverse periods computed with 


Model D are given in Figure 2E.1. 


Ee2 STATIONARY SOLUTIONS FOR HOMOGENEOUS SYSTEMS 





We simplify Eqs. (E.1) by dropping the external source terms, 
the x=dependence of 2 and the (x,t)-dependence of c. We substitute 
the following expressions for G, (x,t) and 0, (x,t) in the simplified 


Has. ( E.1): 
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GO. (x,t) = [B(x,t) + j(x,t)1/2 ; (E.6a) 
6, (xst) = (Olxst) - 5(x,t)1/2 , (18.60) 
where G(x,t) is the flux, and j(x,t) is the net current in the 


direction of increasing x. With some rearranging, we obtain the 


following set of differential equations’ 


1 Dat) , IG) 4 56 (x,t) = lxst) ; (8.74) 
2 GiGet) + OG8) +2 5(x,t) =0. (E.7b) 


If the flux distribution in a system described by Eqs. (7) has 


the asymptotic distribution, we can write 


d(x,t) = G(x)er" (E.6a) 


| 


i 


and CAA 5) ape ‘ (E.8b) 


Substituting Eqs. (E.8) into (E.7) and carrying out the indicated 


operations, we obtain: 








dg (x) 

= + [% +295,(x) = 0 ; (E.9a) 
dj(x) 

“a 4 E(1-0) +418, (x) =0 (B.96) 


Substituting 5X)» as given by (E.9a), into (E.9b), we obtain 


2 

d 

a + ag (x) =O, (E.10) 
dx 


where 
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a” =2[e-1] +Axfe-2] - (AY . (E.11) 


Equation (E.10) has the simple form of the steady state diffusion 
equation for slab or line geometry. In an isolated homogeneous 
reactor, due to symmetry, the asymptotic flux distribution is given 
by one of the following expressions, where y = x-W/2 and A is an 


arbitrary normlization constant: 


$,(y) = A cos ay, a 30 ; (B,12a) 
d(y) =A , a =0 > (E.12b) 
d(x) = A cosh AY, o = ia» aK a0, (E.12¢c) 
From Eq. (1Ae2), 
BGx,t) = coG(x,t ae (E.13) 


so that the asymptotic birth rate distribution bo (x) has the same 


shape as the flux distribution, 0 (x). 


In Section 2E, we apply the constraint (E.11) and the solution 
(E.12a) to check the accuracy of asymptotic solutions computed with 


the finite-integral models. 





le 


9 
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